Komplette Partition C:

[xZise]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Memo1: TMemo;
    SaveDialog1: TSaveDialog;
    FileListBox1: TFileListBox;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
  public
    procedure GetFiles(const Path: string);
  end;

{...}

So sollte der Kopf aussehen ^^

Und dann die Erklärung:

Delphi-Quellcode:

unit {Unitname};

interface

uses
  {Benötigte/Imporitiere Dateien (mist :( Mir fällt das Wort dafür gerad nich ein :()};

type //Klasse
  {Name} = class({Elternklasse})
    {Funktionen/Prozedurendeklarationen // Setzen d. Variablen}
  end;

Aso:
Du kannst nicht irgendwoe im Code "procedure GetFiles(const Path: string);" reinschreiben, sonder das MUSS immer vor implentation