Modulo.IBQuery.Close;
Modulo.IBQuery.SQL.Clear;
Modulo.IBQuery.Add('Select * From Marcas');
Modulo.IBQuery.Open;
while not Modulo.IBQuery.Eof do
begin
CBMarca.Items.Add(Modulo.IBQuery.FieldByName('Marca').AsString);
Modulo.IBQuery.Next
end;
Modulo.IBQuery.Close