[gendelphi]

También puedes hacerlo usando parámetros:

Código Delphi [-]
TIBQuery1.SQL.Text := 'select * from Tabla where Tipo = :Tipo';
TIBQuery1.ParamByName('Tipo').Value:= '1 Cama KSize ';
TIBQuery1.Open;