procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 20 do begin
    with TEdit(FindComponent('Edit' + IntToStr(i))) do
      begin
        Text:='Esto es una prueba';
      end;
end;

Este procedimiento busca edit con numero 20 o menor y les cambia el texto.