Satty67, kein Problem. Irgendwann hat Jeder mal angefangen. Poste deine Versuche hier rein, wenn du magst. Du siehst, das man hier gerne hilft. Vielleicht fängst Du mit der Schnittstelle deiner FileSorter-Klasse an. Vielleicht so:
Delphi-Quellcode:
Type
TTextFileSorterStatus = (tfsInitialiting, tfsSorting, tfsDone, tfsAbort);
TTextFileSortNotifyEvent = Procedure (Sender : TObject; aStatus : TTextFileSorterStatus; aProgressPercentDone : double; Var aCancel : Boolean) of Object;
TTextFileSorter = Class
Public
Constructor Create (aSourceFile, aDestFile : String);
Destructor Destroy; Override;
Procedure Sort;
Property SourceFilename : String;
Property DestinationFilename : String;
Property OnSorting : TSortNotifyEvent;
End;