Листинг 7

procedure TForm1.FormPaint(Sender: TObject); 
var 
  Y: Integer; 
  Blue: Byte; 
const 
  Text = 'Фон для программы Setup.exe'; 
begin 
  with Form1.Canvas do 
  begin 
    // Создаем фон: 
    for Y := 0 to Form1.Height-1 do 
    begin 
      // Уменьшаем интенсивность цвета с ростом    ординаты Y 
      Blue := Round($FF*(Form1.Height-Y)/Form1.Height);  
      // Формируем цвет 
      Pen.Color := RGB(0, 0, Blue); 
      // Чертим линию 
      MoveTo(0, Y); 
      LineTo(Form1.Width-1, Y); 
    end;  // for Y := 0 to Form1.Height-1 do  
    Font.Size := 32; 
    Font.Style := [fsBold, fsItalic, fsUnderline]; 
    Font.Name := 'Times New Roman Cyr'; 
    // Это обращение накладывает текст на фон: 
    SetBkMode(Handle, Transparent); 
    // Сначала выводим тень надписи 
    Font.Color := clBlack; 
    TextOut(40, 30, Text); 
    // Теперь саму надпись 
    Font.Color := clWhite; 
    TextOut(36, 26, Text) 
  end;  //  with Form1.Canvas do 
end;