procedure Edit1Change(Sender: TObject); begin if Edit1.Text = 'Привет' then Label1.Caption := 'Хай'; end;