Nur 1. zeichen aus Textfeld verarbeiten

[ibp]

hi wie wäre es mit..

Delphi-Quellcode:

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

gruß rene