Darstellung von Zeichen im TMemo

[smart]

Hallo Alle!

Ich möchte in einem TMemo '1234' so darstellen

Delphi-Quellcode:

1
2
3
4

Mit diesem Code geht es nicht ganz. Es wird eine Stelle ausgelassen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
A: Integer;
begin
Memo1.Clear;
  For A := 0 To Length('1234') -1 do
  begin
    Ausgabe := Copy('1234', A,1);
    Memo1.Lines.Add(Ausgabe);
  end;

end;

Was mache ich da falsch. Ich komme nicht darauf!

Gruß
Heike