[Drozh]

Значет цикл неправильно построен, алгоритм

Код:

var
 i: Integer;
 znachenie : String;
begin
 znachenie := '1234';

 for i:=1 to 4 do
  Memo1.Lines.Add(' '+znachenie);

работает так как надо