помогите наити ошибку!

[aks]

Сдала процедуру записи текста в типизированный фаил, но при выполнении
delphi выдает ошибку Cannot creat file drive:\имя и тип фаила?

procedure TForm1.Button3Click(Sender: TObject);
var
f:File of string[90];
s:string;
k,i:integer;
space:Int64;
begin
s:=Edit1.Text;
AssignFile(f,s);
Reset(f);
Memo1.Lines.SaveToFile(s);
CloseFile(f);
Memo2.Lines.Add('Данные записаны в фаил!');
k:=DiskFree(0);
Memo2.Lines.Add('Свободно на диске: '+ IntToStr(k)+' байт');
end;

почему при выполнении процедуры DiskFree(0); количество свободного места на диске выводится с "-", почему так происходит и как это исправить?

[Stilet]

А поставь ка бряк на AssignFile(f,s); и посмотри чему s равна.

как это исправить?

Оч просто:
к должно быть типа int64. Читай хелп

[alex_fcsm]

Функция DiskFree выдает количество свободного пространства на Диске (Drive).

Если диск недопустим, или не содержит носителя, возвращается -1.

Если диск только для чтения, возвращается 0.

Диск определяется следующим образом:

1 = Диск A
2 = Диск B
3 = Диск C
...