Ayuda con código.

[wofox]

Gracias a la aydua de johnny solucione mi problema, ahora les pongo el codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Ventana := FindWindow(nil,'Buscaminas'); 
  If Ventana = 0 then begin 
      MessageDlg('Tienes que abrir el buscaminas. Para hacerlo apreta el botón.', mtwarning,[mbOK],0) 
  end 
  else 
      ThreadId := GetWindowThreadProcessId(Ventana,@ProcessId); 
      HandleWindow :=     OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); 
      GetMem(buf,1); 
      buf^ := Chr(9); 
      WriteProcessMemory(HandleWindow,ptr(010056),buf,NumberOfBytes,write); 
      FreeMem(buf); 
      closehandle(HandleWindow); 
end;

Vi este codigo en un foro, serviría para lo que expliqué al principio, pero solo entiendo parte de él y no logro hacerlo funcionar. Me gustaría que comentaran el código para lograr entenderlo. Gracias.