Delphi - ¿Cómo capturar la pantalla en un TImage?

Hola de nuevo, deseo saber como hacer para capturar la pantalla en un TImage, y luego enviarla por un componente socket, me han dicho que a traves del componente TClientSocket se hace eso. Gracias.

No sé lo de los sockets, pero para cargar una toma de pantalla en un control TImagen:

keybd_event(vk_snapshot,0, 0, 0);
if ClipBoard.HasFormat(CF_BITMAP) then
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0);

Espero sirva de algo. Saludos.