@supermuam: Makasih mas kofa..dah ketemu, untuk membesarkan text yang ditulis gimana yah?

Procedure tform1.ConvertJPGtoBMP(cFileName: string);
var
jpeg: TJPEGImage;
bmp: TBitmap;
Begin
jpeg:= TJPEGImage.Create;
try
jpeg.LoadFromFile(cFileName);
bmp:= TBitmap.Create;
try
bmp.Assign( jpeg );
bmp.SaveTofile(ChangeFileExt(cFileName, '.bmp'));
finally
bmp.free
end;
finally
jpeg.free
end;
end;

image1.Canvas.Font.Size:=20;
image1.Canvas.Font.Color:=clSilver;
Image1.Canvas.TextOut(5,5,'Tes Text');

@supermuam: sip mas..dah kelar... ini potongan2 sourcenya konversi jpeg ke image

Procedure tform1.ConvertJPGtoBMP(cFileName: string);
var
jpeg: TJPEGImage;
bmp: TBitmap;
Begin
jpeg:= TJPEGImage.Create;
try
jpeg.LoadFromFile(cFileName);
bmp:= TBitmap.Create;
try
bmp.Assign( jpeg );
bmp.SaveTofile(ChangeFileExt(cFileName, '.bmp'));
finally
bmp.free
end;
finally
jpeg.free
end;
end;

trus tinggal load aj ke timage tinggal masukan aja textnya

image1.Canvas.Font.Size:=20;
image1.Canvas.Font.Color:=clSilver;
Image1.Canvas.TextOut(5,5,'Tes Text');

tinggal simpan aj gambarnya..clear dah

@DelphiExpert: Intinya semua harus di gambar/overlay* di TCanvas :)

// Author: Indra Gunawan - indra_im@live.com
// Classified: Graphics, Tools
// Warning: The code is copyrighted, you're granted to use the code but you must keep my name printed.
uses Jpeg;
function SaveControlContentAsJpeg(AHost: TWinControl; const AFileName: string): Boolean;
var
  Temp: TBitmap;
  Jpg: TJPEGImage;
begin
  Temp := TBitmap.Create;
  try
    Temp.Width := AHost.ClientWidth;
    Temp.Height := AHost.ClientHeight;
    AHost.Perform(WM_PAINT, Temp.Canvas.Handle, 0);
    Jpg := TJPEGImage.Create;
    try
      Jpg.Assign(Temp);
      Jpg.SaveToFile(AFileName);
    finally
      Jpg.Free;
    end;
  finally
    Temp.Free;
  end;
  Result := True;
end;