program prog_name;
{$R res.res}
uses
  windows;
const
 WM_CLOSE=$0010;
 WM_COMMAND=$0111;
 BN_CLICKED=0;


function MainProc(wnd:dword; Msg : Integer; Wparam:dword; Lparam: dword): dword; stdcall;
begin
case msg of
 WM_CLOSE:exitprocess(0);
 WM_COMMAND:
  begin
   case Wparam of
    BN_CLICKED shl 16+3:myproc1();
    BN_CLICKED shl 16+2:myproc2();
    BN_CLICKED shl 16+1: // типа чтение из полей ввода
     begin
        GetWindowText(GetDlgItem(wnd,1002),host,255);
        GetWindowText(GetDlgItem(wnd,1003),path,255);
     end;
   end;
  end;
end;
exit;
end;


begin
DialogBoxParam(hinstance,'Dialog_1',HWND_DESKTOP,@MainProc,0);
end.