Nisi rekao da li radis sa tabelom ili sa query-jem. U svakom slucaju bolja varijanta je da koristis ili INSERT SQL ili da otvaras query koji ne ucitava sve podatke (recimo select * from tabela where id is null)

možeš da uradiš na sledeći način
dodaš jedan dataset sa istom strukturom polja na formu
gde radiš unos i preko njega vršiš unos
a u njemu ćeš imati upit
"select <spisak polja> from tabela where sifra=:sifra"

dakle, "dižeš" samo jedan record u data set i stvari idu mnogo brže.
Kad radiš append, ADO radi iteraciju kroz sve slogove pa to potraje

drugo
prebaci se na dbExpress
Naime, sa ADO-om je sve u redu ali izgelda da ima lošu
implementaciju u Delphiju

Delphi native je dbExpress, probaj da to sve uradiš
sa dbExpress-om i videćeš razliku

treće
niko ne radi select na tolikom broju slogova, daj mu neki parametar
tipa " select ............ where datum between :dat1 and :dat2"

pozdrav
Srdjo

Pozdrav,

ne znam koja je baza u pitanju, ali ako radiš sa ado mogao bi možda ovako... Pretpostavimo da imaš formu na kojoj je TDBGrid (TADOQuery1 i TDataSource1) sa tih 20000 slogova ili kako si već odradio select upit, a pored toga imaš i još jednu formu sa koje unosiš podatke ili vršiš izmene. Na tu drugu formu postavi TADOQuery2, poveži je sa TADOConnection. Dakle, na toj TForm2, unos - izmene, sa TADOQuery2 odradiš:

Posle toga odradiš refresh TADOQuery sa TForm1. Znači, ne vučeš slogove iz one tabele a dodaješ joj, posle toga samo refrešuješ data set i dobiješ taj uneti slog ako pripada tom select upitu.

BTW, pišem iz glave, možda ima neka greška u kodu.

Od native komponenti preporučujem ZEOSLib.