// обработка события OnPaint
// процедура рисует флаг Российской Федерации
procedure TForml.FormPaint(Sender: TObject);
const
L = 200; // ширина флага (полосы)
H = 40; // высота полосы
var
х,у: integer; // левый верхний угол
begin
х := 30;
у := 50; with Canvas do
begin
// Чтобы у прямоугольников не было
// границы, цвет границы должен
// совпадать с цветом закраски Brush.Color := clWhite; // цвет закраски
Pen.Color := clWhite; // цвет границы
Rectangle(х,у,x+L,y+H);
Brush.Color := clBlue;
Pen.Color := clBlue;
Rectangle(x,y+H,x+L,y+2*H); Brush.Color := clRed;
Pen.Color := clRed;
Rectangle(x,y+2*H,x+L,y+3*H) ; // контур
Pen.Color : = clBlack;
Brush.Style := bsClear; // "прозрачная" кисть
Rectangle(x,y,x+l,y+h*3); Font.Size := 24;
Font.Name := 'Times New Roman';
Font.Color := clWhite;
TextOut(50,200,'P о с с и я');
Font.Color := clBlack;
TextOut(51,201,'? о с с и я1);
end;
end;end.