hola...
tal vez el problema radica que dibujas o asignas las propiedades del FONT antes de dibujar el resto de tu imagen o grafico, he probado colocar en el evento OnPaint del PaintBox el codigo de esta forma y funciona..
Código Delphi
[-]
PaintBox.Canvas.Brush.Color := clRed;
PaintBox.Canvas.RoundRect(0,0,150,150,7,10);
LOGFONT.lfHeight := 30;
LOGFONT.lfWidth := 10;
LOGFONT.lfWeight := FW_NORMAL;
LOGFONT.lfEscapement := 900;
LOGFONT.lfStrikeOut := 0;
LOGFONT.lfItalic := 0;
LOGFONT.lfUnderline := 0;
LOGFONT.lfFaceName := 'Tahoma';
Font := CreateFontIndirect(LOGFONT);
SelectObject(PaintBox.Canvas.Handle,Font);
PaintBox.Canvas.TextOut(100,100,Edit1.Text);
DeleteObject(Font);
saludos...