procedure TForm1.Button1Click(Sender: TObject); const A : string = 'Voila;Et re voila !!'; B : string = 'Voila;Et re voila !!'; var i : integer; bon : boolean; begin bon:=true; for i:=0 to Length(A) do if A[i] <> B[i] then bon:=false; if bon then Showmessage('Bon') else Showmessage('Pas bon'); end;