procedure selectTimeType(aSearchString: string); begin if trim(aSearchString) = then begin TimeTypeID := ; TimeTypeNumber := ; LookUpTimeType.Text := ; TimeTypeText := ''; end else if SelectRecord2(TableTimeType, aSearchString, 'LU_NUMBER;LU_NAME', 'LU_NUMBER;Number;60;LU_NAME;Name;400', 'LU_NUMBER', LookUpTimeType.Text) = mrOK then begin TimeTypeID := TableTimeType.fieldByName('LU_ID').asString; TimeTypeNumber := TableTimeType.fieldByName('LU_NUMBER').asString; LookUpTimeType.Text := TimeTypeNumber; TimeTypeText := TableTimeType.fieldByName('LU_NAME').asString; end; end;