procedure TForm1.Line(x, y, x2, y2: integer);
begin
canvas.MoveTo(x, y);
canvas.LineTo(x2, y2);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x, y, len: integer;
r: TRect;
begin
r := self.ClientRect;
len := r.Right - r.Left;
if len < 5 then
len := 5;
if len > 10 then
len := 10;
canvas.Pen.Color := canvas.Font.Color;
canvas.Pen.Width := 1;
canvas.Pen.Style := psSolid;
x := (r.Right + r.Left + len) div 2;
y := (r.Top + r.Bottom) div 2;
//Left Arrow
Line(x, y, x - len - 1, y);
begin
x := x - len + 1;
Line(x, y - 1, x, y + 2);
inc(x);
Line(x, y - 2, x, y + 3);
inc(x);
Line(x, y - 2, x, y + 3);
end;
//Right Arrow
x := x + 100;
Line(x, y, x - len - 1, y);
begin
dec(x);
Line(x, y - 1, x, y + 2);
dec(x);
Line(x, y - 2, x, y + 3);
dec(x);
Line(x, y - 2, x, y + 3);
end;
end;