已经解决，结贴。
函数如下：
function CheckEmail(const Email:string):Boolean;
begin
Result:=True;
if (Length(Email)-Length(StringReplace(Email,'@','',[rfReplaceAll])))<>1 then Result:=False;
if Pos('@',Email)<=1 then Result:=False;
if (Pos('.',Email)=Length(Email)) or (Pos('.',Email)<=Pos('@',Email)+1) then Result:=False;
end;
调用：
begin
if Trim(EditEmail.Text)='' then Exit;
if CheckEmail(EditEmail.Text)=False then
begin
Application.MessageBox('邮箱地址格式不正确','提示',64);
EditEmail.SetFocus;
end;
end;
