function GetData(data: string): pchar; { pega qualquer coisa do mirc. Ex.: $me, $dialog().hwnd etc }
begin
  lstrcpy(mIRCMVOF,pchar(data));
  SendMessage(mwnd_,WM_USER + 201,1,0);
  Result := mIRCMVOF;
end;