[Alegun]

"Нарисовать"

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode: integer;
begin
 with Form1.Canvas do
  begin
   Font.Name:= 'Segoe Script';
   Font.Size:= 12;
   Font.Style:= [fsBold,fsItalic];
   OldBkMode := SetBkMode(Handle, TRANSPARENT);
   Font.Color:= clWindowText;
   TextOut(11, 51, 'Remake');
   Font.Color:= clRed;
   TextOut(10, 50, 'Remake');
   SetBkMode(Handle, OldBkMode);
  end;
end;

рамку формирует функция Rectangle, но можно упростить: берутся два одинаковых, в смысле наполнения лейбла, у "верхнего" Label1 задаётся красный цвет шрифта и смещается вниз и в право по одному пикселю относительно положения "нижнего" Label2. А дальше так

Код:

Label1.Canvas.Pen.Color:= clRed;
Label1.Canvas.Rectangle(0, 0, Label1.Width, Label1.Height);