Вот. Правда сначала придется загрузить рисунок в Image.
Код:
// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode: integer;
begin
Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT );
Image1.Picture.Bitmap.Canvas.TextOut( 10, 10, 'Hello' );
SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, OldBkMode );
end;
// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut( 10, 10, 'Hello' );
end;
А после добавления текста сохранить Image обратно в графический файл. Способа проще я не знаю...
P.S.
Хотя можешь попробовать проделать это непосредственно над TBitmap.