ehm iwie weiss ich grad nicht was du meinst so sieht mein Rechteck aus
Code:
procedure TForm2.Button2Click(Sender: TObject);
var i,j: integer;
ergebniss, zeichen: string[100];
begin
zeichen:= edit1.text;
for i:= 0 to 6 do
begin
ergebniss:=' ';
for j:= 0 to 12 do
begin
ergebniss:= ergebniss + zeichen;
end;
memo1.Lines.Add(ergebniss);
end;
end;