Einstellungen im Editfenster

[STS301]

naja, habe ich mir nur so nebenbei gedacht, aber es sollte für die Edit[1-3] in den Text zb. Hallo schreiben

Zitat von quendolineDD:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
const
  Name = 'Edit';
begin
    for i := 1 to ComponentCount do begin
      if Components[i-1].ClassName = 'TEdit' then
         with TEdit(FindComponent(Name + IntToStr(i))) do
          begin
            MaxLength := 10;
            CharCase := ecUpperCase;
          end;
    end;
end;

wirklich funktionstüchtig ist es nicht
er gibt mir die Fehlermeldung aus