[Kapitoshka438]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'Привет' then
    Label1.Caption := 'Хай'
  else
    Label1.Caption := 'Я еще не умею говорить на эту тему';
end;