Eine Procedure erstellen Beispiel: procedure Removefile ...

[Luckie]

Delphi-Quellcode:

function RemoveFile(const Filename: String): DWORD;
begin
  result := Windows.DeleteFile(PChar(Filename));
end;

Delphi-Quellcode:

var
  res: DWORD;
begin
  res := RemoveFile(...);
  if res <> 0 then
    RaiseLastOSError;