versuch mal so die Strings aus dem Array zu löschen (Array muss global sein):
Delphi-Quellcode:
procedure Tform1.delete_row(row: integer);
var i: integer;
begin
for i := row to High(deinarray)-1 do
deinarray[i] := deinarray[i+1];
SetLength(deinarray, Length(deinarray) - 1);
end;
Das ganze musst du dann mit einer for-Schleife durchgehen, um die Strings aus Listbox und Array zu löschen..