criar um arquivo com delphi

procedure TForm2.Button1Click(Sender: TObject);
var
diretorioDll : string;
begin
  diretorioDll := ExtractFilePath(ParamStr(0));
  FileCreate(diretorioDll + 'validar.dll');
end;