[Lotles]

Подскажите где ошибка
Програмка должна в Memo отобразить текст, содержащийся в txt файле

Код:

var
f:TStringList;
i:integer;
Str:String;
begin
f:=TStringList.Create;
f.LoadFromFile('C:\Documents and Settings\Lotles\Рабочий стол\666.txt');
Str:='';
Str:=f.Strings[i];
for i:=0 to f.Count-1 do
Str:=Str+f.Strings[i];
memo1.Text:=Str;
f.Free;