Es la siguiente:
delphi
procedure TfrmObSEnv.Button1Click(Sender: TObject); var hcnombre : string; begin with IBQuery1 do begin Close; SQL.Text := ' select hcnombre, hcnro, hcdni, hcapellido, strnro, strfechaacc, strart, obsnrosin, '+ ' obsfecha, obsprofesional, obsobservacion, obsfechapc, obsadmin, obsfechaenv ' + ' from historiaclinica , siniestro , observaciones ' + ' where hcnro = strhc ' + ' and strnro = obsnrosin ' + ' and obsfechaenv is Null ' + ' order by hcapellido ' ; Open;
Por favor si alguien puede decirme como resolver este problema
Gracias
Edito: he acomodado un poco el código para que se aprecie mejor.