Canvas/Media Player

W jaki sposób moge zapisać do pliku i wydrukować Canvasa Formy ??

Czy da się zrobić tak:
-Gościu otwiera w moim progamie jakiś utwór muzyczny (wav, MIDI itp)

• Chce by im dalej piosenka sie posuwała, tym bardziej sie suwak bedzie przesuwał.
• W labelu pojawia się czas piosenki.

1. Jak to kiedyś ktoś mądry wkleił :

[code]
procedure TForm1.init_screenshot;
begin
bmp := tbitmap.create;
c := tcanvas.create;
bmp.Width := form1.width - 50;
bmp.height := form1.height - 50;
c.Handle := GetDC(form1.handle);
screenshot_count := -1;
end;

procedure TForm1.write_screenshot;
begin
inc(screenshot_count);
bmp.Canvas.CopyRect(rect(25,25,bmp.width,bmp.height),c,rect(25,25,bmp.width,bmp.height));
if screenshot_count = 10) and (screenshot_count = 100) and (screenshot_count

Wielkie dzięki !!

Hi hi
Mam Cie panie BERL
Wies jak inaczej można zapisać Canvasa do pliku ??
Wystarczy utworzyć bitmapke z ręki a potem na niej rysować np:

var
Bitmapka: TBitmap; //zmimenna bitmapkowa

begin
Bitmapka := TBitmap.Create; {Bitmapka utworzona i załadowana do pamęci}
Bitmapka.Canvas.Pen := coś_tam //tutaj akurat nieważne...
Bitmapka.SaveToFile('C:\Canvas\POmysł\UFO.bmp); //zapisać do pliku
Bitmapka.Free; //Bitmapka wreszcie wolna...
end;