[helper999999]

как поместить данную функцию в таймер:

Код:

function MessageProcess(Handle: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer;stdcall;
var
  ps: PAINTSTRUCT;
begin
  Result:=0;
  case msg of
    WM_CREATE:
      begin
        //***
      end;
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;