[Евгений79]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 list: TStringList;
 i: Integer;
 str,str2: string;
begin
 button1.Caption:='Start';
 list:= TStringList.Create;
 list.clear;
 str:='';
 for i:=0 to 200 do str:=str+IntToStr(i); //длина строки 493 символа.
 for i:=0 to 10000000 do
 begin
  list.Add(str);
 end;
 button1.Caption:='End';
list.Free;
end;

lmikle: пользуемся тегами!!!

Так все работает отлично. Память сильно не расходуется.
но если заменить строку list.Add(str);
на list.Add(str + '1');
или
str2:=str + '1';
list.Add(str2);

то приложение вылетает с руганью на окончание памяти.
А если так сделать
str2:=str;
list.Add(str2);
то тоже никаких проблем с памятью

win7 delphi 7 ram 8gb