Fórum Capturar Imagem do Form e transformar em JPG #366231

procedure TForm1.Button1Click(Sender: TObject);
var
  JpgSave: TJPEGImage;
  i: integer;
begin
  if (SaveDialog1.Execute) then
  begin
    for i := 0 to Pred(Application.ComponentCount) do
    begin
      if (Application.Components[i] is TForm) then
        if (Application.Components[i].Name = ´Form2´) then
          Break;
    end;

    JpgSave := TJPEGImage.Create;
    try
      JpgSave.Assign((Application.Components[i] as TForm).GetFormImage);
      JpgSave.SaveToFile(SaveDialog1.FileName);
    finally
      FreeAndNil(JpgSave);
    end;
  end;
end;