работа с почтовым клиентом в делфях

[alice1505]

ребят помогите училка уже достала а в мозгах каша
сделала лабу она прикопалась что менять надо поменяла все а ошибку добавить как уже туплю.
создан почтовый агент надо сделать так что бы когда адрес вводишь если не написана @ то выдавало ошибку.

[Zer0]

на событие OnExit поля поставить

procedure Form1.Edit1Exit (Sender: TObject);
begin
 if (pos('@',(Sender as TEdit).Text)=0) then begin
   ShowMessage('Тяв-тяв');
   (Sender as TEdit).SetFocus;
   (Sender as TEdit).SelectAll;
end;
end;