[senpiterno]

Ya solucione el problema del rectangulo que se generaba al crear el texto sobre el gradian, utilizando la propiedad Brush.Style del canvas del objeto en donde se genera el texto, a continuación muestro el codigo por si a alguien le pudiera servir:

Código Delphi [-]
Function CreaTextoVertical(Objeto:TPaintBox;Texto:String):Boolean;
Var
LOGFONT : TLogFont;
Font : HFONT;
Begin
Result:=False;//Asignamos el valor por defecto de la funcion
//Utilizamos la propiedad Brush.Style y le asignamos bsClear, para indicar que 
//cuando se pinte el objeto no se rellene su interior
 
Objeto.Canvas.Brush.Style:=bsClear;
Objeto.Canvas.Font.color:= $00C0FFFF;
LOGFONT.lfHeight := -13;
LOGFONT.lfWidth := 0;
LOGFONT.lfWeight := FW_NORMAL;
LOGFONT.lfEscapement := 900; { angulo expresado en decimas de grado }
LOGFONT.lfStrikeOut := 0; { distinto de cero para activarlo }
LOGFONT.lfItalic := 0; { distinto de cero para activarlo }
LOGFONT.lfUnderline := 0; { distinto de cero para activarlo }
LOGFONT.lfFaceName := 'Tahoma';
LOGFONT.lfQuality:=PROOF_QUALITY; 
Font := CreateFontIndirect(LOGFONT);
SelectObject(Objeto.Canvas.Handle,Font);
Objeto.Canvas.TextOut(6,Objeto.Height - 10,'Entrada');
 
Result:=True;//Le damos el valor de salida a la funcion
 
End;//Function

Gracias a todos por su ayuda.....