[friz]

Сорри за оффтоп!

Сообщение от maZaHaKa

Сделал кнопку кинул туда:

procedure TForm1.Button7Click(Sender: TObject);
begin
If Not IsValidEmail(Edit2.Text)
    Then ShowMessage('email неправильный')
    Else button7.Click;;
end;
end;

Что это за прога такая? этож бесконечный цикл!

Сообщение от maZaHaKa

Всю процедуру поместил в модуль edit2:

procedure TForm1.Edit2Change(Sender: TObject);
function IsValidEmail(const Value:string):boolean;
  function CheckAllowed(const s:string):boolean;
  var
    i: integer;
  begin
    Result:= false;
...................................
   

это вообще без комментариев
p.s. ДАЕШЬ ТЕМУ В ЮМОР!