TImage Speichern

[Gehstock]

Delphi-Quellcode:

procedure TFormMain.Button27Click(Sender: TObject);
begin
   with SaveDialog do begin
     FilterIndex:=1;
     FileName := IniFile.ReadString('Setup','Screen,+1','Screen.jpg');
     InitialDir := ExtractFilePath(FileName);
     FileName := ExtractFileName(FileName);
     if InitialDir = '' then IniFile.ReadString('Setup','DirOld','.\');
     if not DirectoryExists(InitialDir) then
      InitialDir := IniFile.ReadString('Setup','DirOld','.\');
     DefaultExt := 'jpg';
     Filter := 'Jpg (*.Jpg)|*.Jpg|All files (*.*)|*.*';
     Options:=Options+[ofFileMustExist]-[ofHideReadOnly]
        +[ofNoChangeDir]-[ofNoLongNames]-[ofNoNetworkButton]-[ofHideReadOnly]
        -[ofOldStyleDialog]-[ofOverwritePrompt]+[ofPathMustExist]
        -[ofReadOnly]-[ofShareAware]-[ofShowHelp];
     Title:='Screen Speichern';
   end;//with
  if SaveDialog.Execute then begin
        [color=#009fff]Image1.Create(SaveDialog.FileName,fmCreate);[/color]
         exit;
end;
end;

hab es so erzeugt aber "Incompitable types "TComponent" and "TFilename""