[NumLock]

для 2-ой задачи используй метафайл:

Код:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);

  procedure DrawTextEnhMetaFile(ACanvas: TCanvas; ARect: TRect; const s: String);
  var
    hEnhDC: HDC;
    hMetaFile: HENHMETAFILE;
    hObj: HGDIOBJ;
  begin
    hEnhDC:=CreateEnhMetaFile(0, nil, nil, nil);
    hObj:=SelectObject(hEnhDC, Font.Handle);
    TextOut(hEnhDC, 0, 0, PChar(s), Length(s));
    if hObj<>0 then SelectObject(hEnhDC, hObj);
    hMetaFile:=CloseEnhMetaFile(hEnhDC);
    PlayEnhMetaFile(ACanvas.Handle, hMetaFile, ARect);
    DeleteEnhMetaFile(hMetaFile);
  end;

begin
  DrawTextEnhMetaFile(Image1.Canvas, Rect(0, 0, Image1.ClientWidth, Image1.ClientHeight), 'Rect');
end;