Delphi - Linea

Hola, perdonen la pregunta si es que no he mirado bien los componentes de delphi pero busque pero no encontre lo que queria.
Como puedo hacer lineas en delphi, lineas rectas diagonales, como las que tiene visual?, gracias por su atencion
Chao...

// Por ejemplo: en el evento paint de form1, puedes "pintar" lineas diagonales, para cambiar las coordenadas solo debes cambiar X,X

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
MoveTo(0, 0);
LineTo(ClientWidth, ClientHeight);
MoveTo(0, ClientHeight);
LineTo(ClientWidth, 0);
end;
end;
// ejemplo extraido de d7prog.hlp