function gleicherEditText(wo: TWinControl; von, bis: integer): boolean; 
var x, y: integer; 
begin 
  with wo do begin 
    result := true; 
    for x := von to bis - 1 do 
      for y := x + 1 to bis do begin 
        if (findcomponent('Edit' + inttostr(x)) as TEdit).text = 
          (findcomponent('Edit' + inttostr(y)) as TEdit).text then exit; 
      end; 
    result := false; 
  end; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if gleicherEditText(Form1, 1, 10) then 
    showmessage('Gleiche Eingaben sind nicht erlaubt'); 
end;