[Aristarh Dark]

Справку надо чаще читать

Код:

var
  TI:Integer;
begin
  TI:=ListBox1.TopIndex;
  ListBox1.Items.Delete(0);
  ListBox1.TopIndex:=TI;
end;