Post moraš ubaciti odmah posle inserta podataka.
procedure Tform1.prenesiubazu(var id,tip,kod,particija,zona:string);
begin
lista.First;
lista.InsertRecord([date,time,id,tip,copy(edit2.Text,7,1),kod,particija,zona,copy(edit2.Text,16,2)]);
lista.Post; // Ubaci ovaj tekst i trebalo bi da funcioniše kako treba
pauza (100);
lista.Active:=false;
lista.Active:=true;
end;
Nikad izvini!