Mas facil no puede estar...
Código:
{Crea una imagen, capturando lo que existe en la pantalla actual}
procedure TForm1.CrearImg(_path: string; _file:string);
En:
Código:
procedure TForm1.TimerSendImgTimer(Sender: TObject);
var
...
...
begin
strPath:=ExtractFileDir(Application.ExeName)+'';
CrearImg(strPath,'imgtmp.jpg'); //Creamos la imagen
mi_jpeg:=TJPEGImage.Create;
mi_jpeg.LoadFromFile(strPath+'imgtmp.jpg'); //cargamos la imagen
...
...
Este procedimiento es para estar tomando imagenes cada 5 segundos.
Para crear solo una imagen, solo manda llamar a CrearImg(Directorio, NombreFile); Directorio=Donde quieres que se guarde. NombreFile=Con ke nombre kieres ke se guarde el archivo .JPG.
No creo que este tan dificil de comprender el codigo, esta comentado y explico tantillo sobre el.
Bueno en fin, espero que esten aclaradas tus dudas (al menos para este hilo).
Salu2!