type TMyRec = record Wnd1, Wnd2, Wnd3, ...: HWND; Dc1, Dc2, Dc3, ...: HDC; end; ... procedure MyProc(Rec: TMyRec);