안녕하세요 하얀까마귀 입니다.

음.. 뭘하실려는건지 잘 모르겟네요.

간단하게 몇자 쳐볼께요..

var
  bmpText : TBitmap;
begin
  bmpText := TBitmap.Create;
  try
     bmpText.pixelFormat := pf24bit; <--음 맞나? pf24bmp던가? bit가 맞겠네요 ㅎㅎ
     bmpText.Width := 500; //.대충.. ^^
     bmpText.Height := 1000
    bmpText.Canvas.Brush.color := clWhite;
    bmpText.Canvas.Brush.style := bsSolid;
    bmpText.Canvas.pen.Style := psClear;

    bmpText.Canvas.FillRect(Rect(0,0, bmptext.width,, bmpText.Height));
    bmpText.Canvas.textOut(20,20, '이거출력하죠1');
    bmpText.Canvas.textOut(20,80, '이거출력하죠2');
    bmpText.SaveToFile('c:\xxx.bmp');
  finally
    bmpText.free;
  end;
end;

음.. 대충한건데 제대로 되었나 모르겠네요. ^^
canvas 에 보면 font 설정가능하구요..

저렇게 간단하게 Canvas.TextOut 함수를 이용해도 되구요

이것보다는 API함수인 DrawText 또는 ExtTextOut를 이용하시는게
더 좋죠..

폰트 크기나 Text의 길이등을 계산해서 위치값 맞춰서 출력하면 되겠죠?

그럼....

아!! 저위에 있는 코딩은 복사해 쓰진 마세요. ^^ 여기서 그냥 친거라서 오타나 컴파일이 안될수도. ^^