procedure TForm1.Button1Click(Sender: TObject);
const
  s = 'Delphi';
var
  xPos: integer;
  iTxtWidth: integer;
begin
  Label1.AutoSize := False;
  Label1.Canvas.Font.Color := clRed;
  Label1.Canvas.Brush.Color := clBlack;
  Label1.Canvas.FillRect(Label1.ClientRect);
  xPos := 0;      Label1.Canvas.Font.Name := 'Courier New';
  iTxtWidth := Label1.Canvas.TextWidth(s[1]);
  Label1.Canvas.TextOut(xPos, 0, s[1]);
  xPos := xPos   iTxtWidth;      Label1.Canvas.Font.Name := 'Arial Black';
  iTxtWidth := Label1.Canvas.TextWidth(s[2]);
  Label1.Canvas.TextOut(xPos, 0, s[2]);
  xPos := xPos   iTxtWidth;      Label1.Canvas.Font.Name := 'Times New Roman';
  iTxtWidth := Label1.Canvas.TextWidth(s[3]);
  Label1.Canvas.TextOut(xPos, 0, s[3]);
  xPos := xPos   iTxtWidth;      Label1.Canvas.Font.Name := 'Garamond';
  iTxtWidth := Label1.Canvas.TextWidth(s[4]);
  Label1.Canvas.TextOut(xPos, 0, s[4]);
  xPos := xPos   iTxtWidth;      Label1.Canvas.Font.Name := 'XFiles';
  iTxtWidth := Label1.Canvas.TextWidth(s[5]);
  Label1.Canvas.TextOut(xPos, 0, s[5]);
  xPos := xPos   iTxtWidth;      Label1.Canvas.Font.Name := 'X-Files';
  iTxtWidth := Label1.Canvas.TextWidth(s[6]);
  Label1.Canvas.TextOut(xPos, 0, s[6]);
end;