Nur 1. zeichen aus Textfeld verarbeiten

[rossinie00]

genau das habe ich gesucht
danke
ich hoffe dass meine fragen gute referenzen für geuche sind =)
das forum ist echt top! nach ein paar min ne antwort!

jetzt hab ich sowas:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: integer;
   eing: char;
begin
  memo1.clear;
  eing := edit1.text[1];
  for i := 1 to 4 do
    begin
      memo1.lines.add(eing + eing + eing + eing);
    end;
end;

nur anstatt da hin zu schreiben "memo1.lines.add(eing + eing + eing + ...........eing);" würd ich gerne i-mal die variable eing hintereinander.
Danke
rossinie 00