Falls du zufällig die rar deitei nicht entpacken kannst, probiers mal hiermit:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var asd:array of string;
begin
// "löscht" zweiten Eintrag im Dynamischen ggf. nachher sortieren falls nötig. Siehe BubbleSort etc.
SetLength(asd,5);
asd[2]:=asd[5];
asd[5]:='';
setlength(asd,4);
end;
Zwar umständlich aber funzt.
Mfg