procedure TdmX.qSomeQueryCalculateField(Sender: TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
var s:string;
begin
inherited;
if AField.FieldName='MYCALCFIELD' then
begin
s:='';
if ARow.ByName('SOMEFIELD').asString<>'' then
s:=ARow.ByName('SOMEFIELED').asString+' '; //HERE can format your
field too ....
AField.AsString:=s;
end;
end;