Tengo problemas con IDataReader

[selmanc]

Hola, estoy desarrollando una aplicación en Delphi 2005 para ASP.net, en un proceso necesito leer los registros de una tabla usando un IDataReader, cuando hago el proceso varias veces a través de un boton me marca el siguiente error:
Referencia a objeto no establecida como instancia de un objeto
Detalles de la excepción: System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto

Les envio el código donde me marca el error.

procedure TWebForm1.CargaAgenda;
var
Condicion: String;
sIni : string;
begin
IniciaAgenda;
fecha_seleccionada.Text := DateToStr(Calendar3.SelectedDate);
mensaje_dia_agenda_mostrada.Text := 'Agenda del ' + DiaSemana(Calendar3.SelectedDate) + ' ' + fecha_seleccionada.Text;
FSentencia := 'SELECT ID_MEDICO, ID_HORARIO, ID_PACIENTE, PACIENTE, NOTA, ESTATUS FROM AGENDA ';
sIni := FormatDateTime('mm-dd-yyyy',StrToDate(fecha_seleccionada.Text));
Condicion := '';
Condicion := ' WHERE (FECHA = ' + QuotedStr(sIni) + ') and (ID_MEDICO = ' + id_medico.Text + ')'; //;
with BdpC_Agenda do
begin
Connection.Open;
CommandText := FSentencia + Condicion;
lector := ExecuteReader;
while lector.Read do
begin
EscribeAgenda (lector.GetInt32(1), IntToStr(lector.GetInt32(2)), lector.GetString(3), lector.GetString(4), lector.GetInt16(5));
end;
lector.Close;
Connection.Close;
end;
end;