SoloCodigo

Prueba así

var

Agenda : TipoListin;
BackupName: string;
F: File of TipoListin;

begin
  if SaveDialog1.Execute then
     begin
       AssignFile(F, SaveDialog1.FileName);
       if FileExists(SaveDialog1.FileName) then
          Reset(F)     {Abre F para modificar}
       else
         begin
          ReWrite(F);    {Crea F nuevo}
         end;
      Agenda.Nom:=TxtNombre.Text;
      Agenda.Ape2:=TxtApellido.Text;
      Agenda.Telefono:=TxtTfno.Text;
      Seek(F, FileSize(F));           {Se ubica al final del archivo para adicionar un nuevo registro}
      Write(F, Agenda);               {Escribe el nuevo registro}
      CloseFile(F);
    end;
end;

Hola

Acabo de registrarme en SoloCodigo

Por favor necesito saber donde puedo encontrar información de como se puede con Delphi leer o escribir datos en un puerto serie, pues necesito hacer un software que me reciba y procese ciertos datos que me envia una pizarra teléfonica conectada a mi PC por un puerto serie.