[НовичЁккк]

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

а как сделать чтоб если пишешь не привет он говорит я еще не умею говорить на эту тему?