agregar a un outline desde una base de datos
 

hola

estoy haciendo un ciclo para agregar la desde una bd la cantidad de consultas medicas que tiene un paciente a un outline
ej:

tabla consulta tiene:
Historia_clinica- Integer///llave
Numero de consulta- Autonumerico

en un dblookcombo voy a desplegar las historias clinicas y segun la que sea quiero agregar las consultas que tenga a un outline

este es el codigo que estaba poniendo pero no me sale, no se casi de ciclos, asi que perdonenme si hay un disparate

///////////////////////////////////////////////////////
i: Integer;
value : Integer;
begin
value:=StrToInt(CB_CargarConsulta_HC.KeyValue);
DataModule1.Consulta.Open;
DataModule1.Consulta.First;
for i:=0 to DataModule1.Consulta.RecordCount-1 do
if DataModule1.Consulta.FieldValues['Historia_clinica'] = value then
Outline1.Lines.Add(DataModule1.Consulta.FieldValues['Consulta'])
DataModule1.Consulta.Post;
else
showmessage('No tiene consultas');
end;