Bitmap in schwarz/weiss anjeigen (grayscale)

[delphiNoob]

hallo alle zusammen!!!

Ich hab ein Problem:
ich will eine Bitmap in schwarz/weis machen, das mach ich so:

Delphi-Quellcode:

procedure TMainF.greyscClick(Sender: TObject);
var
bmp : Tbitmap;
jpg : TJpegImage;
begin
if (FileType = '.bmp') or (FileType = '.BMP') then
 begin
    bmp := TBitmap.Create;
    jpg := TJPEGImage.Create;
      try
        bmp.Assign(Image.Picture);
        jpg.Assign(bmp);
        jpg.Grayscale := true;
        Image.Picture.Bitmap.Assign(jpg);
      finally
        StatusBar1.Panels[4].Text := 'Grayscaled';
        greysc.Enabled := false;
        FileType := '.bmp';
      end;
    end;
...

Dann kommt aber immer Hier:

        Image.Picture.Bitmap.Assign(jpg); eine "Zugriffsverletzung bei Adresse 004162F7"

was ist an meinem code falsch???

Bitte helft mir!!

delphinoob