请问比较有关问题＞？

请教比较问题＞？急　　在线等！
有６个ＥＤＩＴ．ＴＥＸＴ输入框，请教如何判断这６个输入框内容是否相同，相同给出提示！有没有好的方法啊！谢谢

[解决办法]
if (AnsiCompareStr(Edit1.Text, Edit2.Text) = 0) and
(AnsiCompareStr(Edit1.Text, Edit3.Text) = 0) and
(AnsiCompareStr(Edit1.Text, Edit4.Text) = 0) and
(AnsiCompareStr(Edit1.Text, Edit5.Text) = 0) and
(AnsiCompareStr(Edit1.Text, Edit6.Text) = 0) then
ShowMessage( '相同 ');
[解决办法]
AnsiCompareStr:区分大小写
AnsiCompareText:不区分大小写
[解决办法]

function TForm1.SameInput: boolean;
var
i: Integer;
s: string;
begin
Result := False;

s := Trim(Edit1.Text);

for i := 2 to 6 do
if Trim(TEdit(FindComponent( 'Edit ' + IntToStr(i))).Text) <> s then
Exit;

Result := true;
end;

[解决办法]
写错了，上面的只是比较了和Edit1，重写一下：


function TForm1.SameInput: boolean;
var
i, j: Integer;
s: string;
begin
Result := False;


for i := 1 to 5 do begin
s := Trim(TEdit(FindComponent( 'Edit ' + IntToStr(i))).Text);
for j := i + 1 to 6 do
if Trim(TEdit(FindComponent( 'Edit ' + IntToStr(j))).Text) <> s then
Exit;
end;
Result := true;
end;



[解决办法]
楼主的需求，是要比较6个Edit内容都相同。所以1和2,1和3,1和4,1和5,1和6比较就可以了。
[解决办法]
还是用2楼的方法， 因为用DELPHI提供的方法比自己写效率上要高多了。
介意用：CompareStr(const s1, s2: string): Integer;区分大小写
CompareText(const S1, S2: String): Integer; SameText(Const S1, S2: String): Boolean; 这两个不区分大小写