[YVitaliy]

В событии Edit#.OnChange проверяй текст в поле:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='VISIT'  then showmessage('VISIT');
end;