[Nyctos Kasignete]

Может, имелось в виду просто сохранение изображения с текстом? Ну, типа такого...

Код:

uses ..., jpeg;

......

procedure TForm1.Button1Click(Sender: TObject);
var
  txtFile: TextFile;
  Str: string;
  i: Integer;
  Img: TJPEGImage;
begin
  AssignFile(txtFile, 'D:\TextFile.txt');
  Img := TJPEGImage.Create;
  try
    Reset(txtFile);
    with Image1.Canvas do
    begin
      MoveTo(10, 10);
      while not Eof(txtFile) do
      begin
        Readln(txtFile, Str);
        i := 1;
        while i < Length(Str) do
        begin
          TextOut(PenPos.X, PenPos.Y, Str[i]);
          Inc(i);
          if PenPos.X > Image1.Width - 10 then MoveTo(10, PenPos.Y + 20);
        end;
      end;
    end;
    Img.Assign(Image1.Picture.Bitmap);
    Img.SaveToFile('D:\Text2JPEG.jpg');
  finally
    CloseFile(txtFile);
    Img.Free;
  end;
end;

P.S. Соответственно, размер картинки можно подгонять, изменяя размер компонента TImage на форме.