Eine einfache Lösung wäre natürlich auch, dass du die den TopIndex einfach merkst.
Delphi-Quellcode:
procedure TDialog.btnAddClick(Sender: TObject);
var
temp: integer;
begin
temp := ListView1.TopIndex;
{...}
ListView1.TopIndex := temp;
end;
Grüße
Headbucket