[ZXCCXZ]

А именно пробовал так:

Код:

type
  MyP = record
    a:integer;
    b:string;
    c:TDateTime;
  end;

...

procedure MyProcedure(mp:MyP);

...

procedure TForm1.Button1Click(Sender: TObject);
var
 dw:Dword;
 mp:MyP;
begin
  mp.a:=Random(5);
  mp.b:='123';
  mp.c:=Now;
  BeginThread(nil,0,@MyProcedure,Pointer(mp),0,dw);
end;

Ошибка следующая:
[Error] Unit1.pas(50): Invalid typecast