안녕하세요.
[미남]입니다.
제가 여러 곳에서 찾아봤는데....
문서를 비트맵으로 저장하는 방법밖에는 없더군요.
간단하게 텍스트 문서를 비트맵으로 저장하는 방법을 올립니다.


procedure TForm1.Button1Click(Sender: TObject);
var
   Bmp : TBitmap;
   Line : string;
   I : integer;
   ch : char;
   F : TextFile;
begin
   I := 0;
   Bmp := TBitmap.Create;
   with Bmp do begin
      Width := ClientRect.Right;
      Height := ClientRect.Bottom;
      AssignFile(F, 'c:\mytext.txt');    {저장하고자 하는 파일명을 삽입}
      Reset(F);
      repeat
         Inc(I);
         Line := '';
         repeat
           Read(F, ch);
           Line := Line+ch;
         until ch= #10;
         Canvas.TextOut(10, I*20, Copy(Line, 1, Length(Line)-2));
      until EOF(F);
      CloseFile(F);
      BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDc(Handle),
             ClientRect.Left, ClientRect.Top, SRCCOPY);
      SaveToFile('c:\preview.bmp'); {preview.bmp로 텍스트 파일이 저장됩니다}
      Free;
   end;
end;

분석해 보시면 별로 어렵지 않습니다.
도움이 되셨기를....