在Delphi中，使用WriteFile函數來寫入文件時，需要先打開文件，然后使用WriteFile函數將數據寫入文件。以下是使用WriteFile函數的一般步驟：

1. 在程序中包含Windows單元：uses Windows;。
2. 定義文件句柄變量和緩沖區變量：var hFile: THandle; Buffer: array of Byte;。
3. 打開文件，獲取文件句柄：hFile := CreateFile('文件路徑', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);。
   • '文件路徑’是要寫入的文件的路徑。
   • GENERIC_WRITE表示以寫入方式打開文件。
   • CREATE_ALWAYS表示如果文件不存在，則創建一個新文件。
4. 將要寫入的數據存儲在緩沖區中。
5. 使用WriteFile函數將緩沖區中的數據寫入文件：WriteFile(hFile, Buffer[0], Length(Buffer), BytesWritten, nil);。
   • hFile是文件句柄。
   • Buffer[0]是緩沖區的起始位置。
   • Length(Buffer)是要寫入的數據的長度。
   • BytesWritten是一個變量，用于存儲實際寫入的字節數。
6. 關閉文件句柄：CloseHandle(hFile);。

下面是一個寫入文件的簡單示例：

uses
  Windows;

var
  hFile: THandle;
  Buffer: array of Byte;
  BytesWritten: DWORD;

begin
  // 打開文件
  hFile := CreateFile('C:\example.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

  if hFile <> INVALID_HANDLE_VALUE then
  begin
    try
      // 準備要寫入的數據
      SetLength(Buffer, 5);
      Buffer[0] := $48; // 'H'
      Buffer[1] := $65; // 'e'
      Buffer[2] := $6C; // 'l'
      Buffer[3] := $6C; // 'l'
      Buffer[4] := $6F; // 'o'

      // 寫入文件
      if WriteFile(hFile, Buffer[0], Length(Buffer), BytesWritten, nil) then
        ShowMessage('寫入成功')
      else
        ShowMessage('寫入失敗');
    finally
      // 關閉文件句柄
      CloseHandle(hFile);
    end;
  end
  else
    ShowMessage('無法打開文件');
end.

以上示例中，將字符串"Hello"寫入了文件C:\example.txt中。在實際使用中，可以根據需要進行修改。