Delphi我写的关于验证邮箱格式的程序

主要部分：procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,s2,s3:string;i,k1,k2:integer;
begin
    for i:=0 to length(edit1.Text) do
       begin
           if edit1.Text[i]= '@' then
            k1:=i
           else if edit1.Text[i]='.' then
            k2:=i;
    end;
     if (k1=0) or (k2=0) then
     showmessage('邮箱格式错误，请输入正确的邮箱地址')
     else
     begin
       s1:=leftstr(edit1.Text,k1-1);
       s2:=rightstr(edit1.Text,length(edit1.Text)-k1);
       s3:=rightstr(edit1.Text,length(edit1.Text)-k2);
       s2:=leftstr(s2,length(s2)-length(s3)-1);
       showmessage(s1);
       showmessage(s2);
       showmessage(s3);
     end;
end;（其中leftstr（）函数用到了strutils.pas需在type里面加入关键字strutils）