Delphi - Captura de pantalla

Quisiera hacer un programa que pudiera capturar la pantalla actual para posteriormente trabajar con ella.
Muchas gracias.

Pon un TImage y un TButton, y en el OnClick del Tbutton copia este código a ver si te sirve.

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop : TCanvas ;
begin
DeskTop := TCanvas.Create ;
try
with DeskTop do
Handle := GetWindowDC (GetDesktopWindow) ;

with Image1.Canvas do
CopyRect (Rect (0, 0, 1000, 1000),
DeskTop,
Rect (0, 0, 1000, 1000))
finally
DeskTop.Free
end

end;

Puedes usar las propiedades Width y Height de Scrren para obtener las dimensiones del escritorio. Sustituye
Rect(0, 0, 1000, 1000) por
Rect(0, 0, Screen.Width, Screen.Height)