IMHO sollte es so ohne großen Aufwand gehen:
Delphi-Quellcode:
procedure TFileSplitter.UnSplit(sExtension: string = '.XXX');
var
i: Integer;
Continue: Boolean;
sFileName: TFileName;
BytesRead, TotalRead: LongInt;
begin
if FileExists(FSplitFileName) then
begin
{ Make sure the filename is correct }
if FFileName = '' then
FFileName := ChangeFileExt(FSplitFileName, sExtension);
...
Wenn keine Extension explizit angegeben wird, bleibt alles beim Alten, ansonsten kannst Du eine angeben, die dann verwendet wird.