Pasos para Imprimir un Tchar en Delphi 7

Se imprimirá cuando apretemos el "Botón8"

procedure TForm8.Button8Click(Sender: TObject);
begin
//Imprimirá en horizontal
chart1.PrintLandscape;
//Define los márgenes
chart1.PrintMargins:=rect(5,5,5,5);
//¿Imprimirá con proporcionalidad?
chart1.PrintProportional:=true;
//Al fin Escribe
chart1.Print;
end;