[kriv0y]

Подскажите, что неправильного в процедуре

procedure TForm2.Button1Click(Sender: TObject);
var
f1:textfile;
begin

AssignFile(f1, 'c:\1.txt');
Rewrite(f1);
Close(f1);
end;

end.

Ошибка
[DCC Error] Unit2.pas(33): E2034 Too many actual parameters