s.v.p j'ai toujour un probleme pour les if et else

par exemple j'au un edit et un boutton

je programme le boutton

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.texte:=hi then
showmessage('c'est bien')
end;
ca marche pas toujour pour moi

merci de m'aider