Обводка для текста.

procedure CanvasTextShadow(Canvas:TCanvas; text:string;x,y:integer; sh_color: TColor = 0; sh_x: integer = 2; sh_y: integer = 1);
var c:TColor; st:TBrushStyle;
begin
  with Canvas do begin
  c:=Font.Color;
  st:=Brush.Style;
  Font.Color:=sh_color;
  TextOut(x+sh_x,y+sh_y,text);
  Font.Color:=c;
  Brush.Style:=bsClear;
  TextOut(x,y,text);
  Brush.Style:=st;
  end;
end;
 
procedure CanvasTextShadowBorder(Canvas:TCanvas; text:string;x,y:integer; sh_color: TColor = 0; width: integer = 1);
var c:TColor; st:TBrushStyle;
begin
  With Canvas do begin
    c:=Font.Color;
    st:=Brush.Style;
    Font.Color:=sh_color;
    TextOut(x+width,y+width,text);
    Brush.Style:=bsClear;
    TextOut(x-width,y-width,text);
    TextOut(x+width,y-width,text);
    TextOut(x-width,y+width,text);
    Canvas.Font.Color:=c;
    TextOut(x,y,text);
    Brush.Style:=st;
  end;
end;

Image1.Canvas.Font.Size:=36;
  Image1.Canvas.Font.Color:=clWhite;
  CanvasTextShadowBorder(Image1.Canvas,Edit1.Text,10,10);