Capturar la pantalla con lazarus

[jorge1987]

Yo con delphi hacia algo como esto para capturar la pantalla:

Código Delphi [-]
procedure TForm1.BtnCapturarClick(Sender: TObject);
Var
  B : TBitmap;
Begin
  B := TBitmap.Create;
  B.Width := GetSystemMetrics(SM_CXSCREEN);    {Screen.Width}
  B.Height := GetSystemMetrics(SM_CYSCREEN);   {Screen.Height}
  BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);
  b.SaveToFile('ctemp.bmp');
  b.Free;
  Img.Picture.LoadFromFile('ctemp.bmp');
end;

Peeeeeeeeeeeero, como supongo que lazarus no te deja hacer llamadas al sistema, para poder hacer un cross plataform perfecto, como puedo hacer una captura de la pantalla, sin hacer llamadas al sistema?

Basicamente, como puedo reescrivir esto:

Código Delphi [-]
  B.Width := GetSystemMetrics(SM_CXSCREEN);    {Screen.Width}
  B.Height := GetSystemMetrics(SM_CYSCREEN);   {Screen.Height}
  BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);

Desde ya, gracias.

Saludos

PD: Si les interesa saver como quedo aquel capturador de pantalla que estaba haciendo con delphi, aqui tiene el link:
Chameleon Capturer