Problem z ini i TString

procedure TForm1.FormCreate(Sender: TObject);
var INI: TIniFile;
i: Integer;
begin
INI:=TIniFile.Create('C:\Documents and Settings\user\Pulpit\motywatory.ini');
for i:=1 to 7 do
 begin
  RichEdit1.Text:=RichEdit1.Text + INI.ReadSectionValues('przyslowia', i);
 end;
INI.Free;
end;

RichEdit1.Text:=RichEdit1.Text + INI.ReadString('przyslowia', IntToStr(I), 'tutaj jakiś tekst, jeżeli nie ma takiego przysłowia');

IntToStr

  with TIniFile.Create('C:\Documents and Settings\user\Pulpit\motywatory.ini') do
  begin
    ReadSectionValues('przyslowia',RichEdit1.Lines);
    Free;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UrlDownloadToFile(nil,'http://arus1993.host4u.pl/szkola/office.jpg','C:\office.jpg',0,nil);
end;