procedure TForm1.Button1Click(Sender: TObject);var s1,s2: string;begin s1:='s'; s2:='s'; if s1 = s2 then ShowMessage('OK!');end;