[Neftali [Germán.Estévez]]

Pon un componente TImage en el formulario y prueba con un código como éste:

Código Delphi [-]
 var
   DestRect, SourceRect: TRect;
 begin
   // Rectangulos origen y destino
   SourceRect := Rect(0, 0, Self.Width, Self.Height);
   DestRect := Rect(0, 0, Self.Width, Self.Height);
   // Copiar la imagen
   Image1.Canvas.CopyRect(DestRect, Self.Canvas, SourceRect);
   // Grabarla en disco
   Image1.Picture.Bitmap.SaveToFile('c:\temp\image1.bmp');

A partir de éste puedes modificarlo para mejorarlo, pero la base ya la tienes.