Stringlist, FindComponent und Edit Felder inkl deren inhalt

[sharkx]

Hallo !


Folgendes Problem:

Ich habe 4 Edit Felder mit dem inhalt (bsp) 4A569 5f433 3t598 6g5f4

nun möchte ich in einer for schleife die buchstaben entfernen. dazu habe ich folgendes gebastelt, funktioniert jedoch nicht :(

Delphi-Quellcode:

function CheckKey(List: TStringList): boolean;
var
  i,x: Integer;
begin
  Result := false;

  for x := 1 to 4 do
    begin
      for i := length(List.Strings[x]) downto 1 do
         delete(List.Strings[x],i,1);
      ShowMessage(List.Strings[x]);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  List: TStringList;
  i: Integer;
  s: TComponent;
begin
  for i := 1 to 4 do
    begin
      s := FindComponent('Edit' + IntToStr(i));
      List := TStringList.Create;
      List.Add(s.Name);
      List.Free;
    end;
  CheckKey(List);
end;

wäre nett wenn mir jemand da zum ende helfen könnte :)