我的方法是这样的：
procedure TForm1.Button1Click(Sender: TObject);
var
String1, String2 : string;
I : Integer;
begin
String1 := MEMO1.Lines.Text ;
String2 := MEMO2.Lines.Text;
I := CompareStr(String1, String2);
if I <> 0 then
MessageDlg('The strings are 不相等', mtWarning, [mbOK], 0);
end;
这样就能够判断出目前所输入的字符串是否相同，用别的什么控件都一样
关键是用到那个函数，呵呵，快给分
