Funciona al fin muchas gracias quedo de este modo ya que sql.text por separado solo cargaba el ultimo
Código Delphi
[-]procedure TModificarA.FormCreate(Sender: TObject);
begin
if not Assigned(Mainform.ListView2.Selected) then
raise Exception.Create('Algo no anda bién con ListView2...');
Mainform.ZQuery4.close;
Mainform.ZQuery4.SQL.Text := 'SELECT * FROM Sierras where numero not in(SELECT Sierras FROM Sierras join Asignados on sierras=numero) union all SELECT * FROM Sierras where numero = :numero ';
Mainform.zQuery4.parambyname('numero').AsString := Mainform.ListView2.Selected.SubItems[0];
Mainform.ZQuery4.Open;
DatetimePicker1.DateTime := StrToDate(Mainform.ListView2.Selected.Caption);
dblookupcombobox1.Keyvalue := Mainform.ListView2.Selected.SubItems[0];
dblookupcombobox2.keyvalue:= Mainform.ListView2.Selected.SubItems[1];
end;
Saludos!!
