CreateThread多参数传递

Student = record
    Name: PChar;
    age: integer;
  end;
  pStudent=^Student;
var
  h: THandle;

procedure aa(cc: pStudent); stdcall;
begin
  Form1.Memo1.Lines.Add(cc.Name);
  Form1.Memo1.Lines.Add(IntToStr(cc.age));
  Dispose(cc);                                //记得释放内存
  ExitThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  id: Cardinal;
  p: pStudent;
begin
 New(p);
  try
    p.Name := PChar(form1.edt1.text);
    p.age := 100;
    h := CreateThread(nil, 0, @aa, p, 0, id);
  finally
    if h <> 0 then CloseHandle(h);
  end;
end;