function Length(S: string): Integer;
//Zu diesem Beispiel gehören ein Eingabefeld, eine Schaltfläche und eine Beschriftung. procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin Label1.Caption := ''; for i := 1 to Length(Edit1.Text)+1 do begin Label1.Caption := Label1.Caption + Edit1.Texti; end; end;