建立空文件的问题(16分)

比如有一个 555.txt 文件是50K，我想根据这个文件名称建立一个 0字节的空文件替换他，我该怎么做？

procedure TForm1.Button1Click(Sender: TObject);
var
l_Tmp : TStringList;
begin
if not OpenDialog1.Execute then
Exit;

l_Tmp := TStringList.Create;
try
l_Tmp.Text := '';
l_Tmp.SaveToFile(OpenDialog1.FileName);
finally
l_Tmp.Free;
end;
end;