Копировать данные при чтении

[Doctordradd]

Подскажите, пожалуйста, как считать данные, скопировав их?
В программе с 1 формы данные записываются в пустых полях и разбрасываются по датам используя комбобокс. Уже записанные данные можно редактировать в другой форме куда они считываются, при изменении данных изменяется запись в основной таблице программы. При изменении даты данные перезаписываются в новую дату, при этом исчезают из старой даты, это редактирование. С 3 формы нужно создать копирование данных, чтоб происходил процесс примерно как при редактировании, но чтоб при изменении даты в значении комбобокса остальные данные записывались в любую новую дату при этом сохраняясь в старой.Вот код:
Чтение:

procedure TForm3.FormActivate(Sender: TObject);
var i:integer;
    SECT:STRING;
begin
 try
   Copy.caption:='Copiar esta Visita - '+ansiuppercase(BasePPL.Visitas.ItemFocused.Caption);
   sect:=BasePPL.Visitas.ItemFocused.Caption;
   Datacombobox.Items.clear;
   for i:=1 to BasePPL.groups.Items.Count-1 do begin
     datacombobox.Items.Add(BasePPL.groups.Items[i].caption);
   end;
   Name.text:=SECT;
   Name2.text:=main.ini.ReadString(SECT,'n1','');
   Name3.text:=main.ini.ReadString(SECT,'n2','');
   Name4.text:=main.ini.ReadString(SECT,'n3','');
 except
   writeLog(log,'ReadFileError','Copy.FormActivate');
 end;
 Name.SetFocus;
end;

Запись:

procedure TCopy.InsertClick(Sender: TObject);
var i:integer;
begin
 try
   if length(NombresVistante.text)>0 then begin
         main.ini.WriteString(Name.text,'n1',Name2.text);
         main.ini.WriteString(Name.text,'n2',Name3.text);
         main.ini.WriteString(Name.text,'n3',Name4.text);
         main.ini.WriteTime(Name.text,'n4',Now);
         main.ini.WriteString(Name.text,'n7',Datacombobox.Text);
   end
   else showmessage(' ');
 except
    writeLog(log,'WriteError','Copy.InsertClick');
 end;
end;