[Gun_der]

So hier ist der ganze quellcode. Musst nur noch deinen Pfad und das Format richtig einstellen und die Komponenten so umbenennen...bei den Kommis ganz unten^^

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs ,StdCtrls, ExtCtrls, jpeg, FileCtrl;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Bild: TImage;
    BtLaden: TButton;
    BtSchliessen: TButton;
    BtLoeschen: TButton;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Pfad: TPanel;
    FilterComboBox1: TFilterComboBox;
    BtGut: TButton;
    BtSchlecht: TButton;

    procedure BtSchliessenClick(Sender: TObject);

    procedure BtLadenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtLoeschenClick(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure BtGutClick(Sender: TObject);
    procedure BtSchlechtClick(Sender: TObject);


  private                                  //kapselung
    { Private-Deklarationen }
    Bildpfad: String;
    Quelle:String;
    Ziel:String;
    bildnamegut:integer;
    Bildnamegutstr:String;
    bildnameschlecht:Integer;
    Bildnameschlechtstr:String;

  public
    { Public-Deklarationen }


  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}                   //Compileranweisung

procedure TForm1.BtSchliessenClick(Sender: TObject);
begin
close;
end;

procedure TForm1.BtLadenClick(Sender: TObject);
begin

  bild.Picture.LoadFromFile(Bildpfad);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bildpfad:='';
  bildnamegut:=1;
  bildnameschlecht:=1;
end;

procedure TForm1.BtLoeschenClick(Sender: TObject);
begin

bild.Picture:=nil;

end;


procedure TForm1.FileListBox1Change(Sender: TObject);
begin
  Pfad.Caption := Filelistbox1.FileName;
  Bildpfad := Pfad.caption;
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
     bild.Picture.LoadFromFile(Bildpfad);
end;



procedure TForm1.BtGutClick(Sender: TObject);
begin
bildnamegutstr:=Inttostr(Bildnamegut);
copyfile(PChar(Pfad.caption),PChar('Zielpfad eingeben'+bildnamegutstr+'Format eingeben'),false);     //Kopiert gute Bilder.....FORMAT UND PFAD RICHTIG SETZEN!!!.....FORMAT MIT PUNKT Z.B.  .jpg
bildnamegut:=bildnamegut+1;
end;

procedure TForm1.BtSchlechtClick(Sender: TObject);
begin
 bildnameschlechtstr:=Inttostr(Bildnameschlecht);
copyfile(PChar(Pfad.caption),PChar('Zielpfad eingeben'+bildnameschlechtstr+'Format eingeben'),false);     //Kopiert schlecht Bilder.....FORMAT UND PFAD RICHTIG SETZEN!!!
bildnameschlecht:=bildnameschlecht+1;
end;

end.