#pas
procedure THIAdjustControls._work_doSet;
var
  ...
  aName: array [0..255] of Char; 

 case
 ...  
  6,7,8: begin // text = caption = strings
           GetClassName(handle, aName, 256); 
           if aName = 'obj_EDIT' then 
            begin
             Replace(str, '|', #13#10);
             if isForm then
              SetWindowText(Handle, @str[1])
             else
              Text := str;
            end
           else
            begin
             Clear;
             while str <> '' do Add(fparse(str,'|'));
            end; 
          end;
  ...
  end;