Delphi - Imprimir un Form

Hola alguien sabria decirme como puedo imprimir todo el contenido de un formulario en delphi.
uso este codigo para imprimir las lineas de un memo

if PrintDialog1.Execute then
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Font.Size:=10;
Canvas.Font.Name:='Arial';
Canvas.Brush.Style := bsClear;
for i := 0 to print_preview.Lines.Count do
Canvas.TextOut(200,200 + (i * Canvas.TextHeight(print_preview.Lines.Strings[i])),print_preview.Lines.Strings[i]);

Canvas.Brush.Color := clBlack;

Canvas.FrameRect(r);
EndDoc;
end;
end;

como podria aplicarlo para que me imprima un formulario