Создание пользовательского отчета. : Супермаг Плюс (Супермаг 2000)

procedure TForm1.FormCreate(Sender: TObject);
begin
  MailSlotName := GetCommandLine();
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  st:string;
  hfile:Thandle;
  ZapisanoBytes : Cardinal;
  bol,i : integer;
begin
  if VozvrBox.Checked then bol:=1 else bol:=0;
  hfile:=CreateFile( pchar(MailSlotName),GENERIC_WRITE,FILE_SHARE_READ,Nil,OPEN_EXISTING,0,0);
  st:='P_DATE='+datetostr(DateTimePicker1.DateTime)+' P_LASTDATE='+datetostr(DateTimePicker2.DateTime)+' P_StoreLoc='+inttostr(StoreID[Combobox1.ItemIndex+1])+' P_VOZVR='+inttostr(bol)+' P_GROUP_TREE='+tree;
  SetLength(st, Length(st));
  if not WriteFile(hFile,Pansichar(st)^,Length(st),ZapisanoBytes,NIL) then showmessage('Ошибка');
  CloseHandle(hFile);
  close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
  Wnd : hWnd;
  buff: ARRAY [0..255] OF Char;
  st:string;
  b:boolean;
begin
// определение имени текущей БД для коннекта
  magbase:='';
  Wnd := GetWindow(Handle, gw_HWndFirst);
  WHILE Wnd <> 0 DO
  BEGIN {Не показываем:}
    IF (Wnd <> Application.Handle) AND {-Собственное окно}
    IsWindowVisible(Wnd) AND {-Невидимые окна}
    (GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
    THEN
    BEGIN
      GetWindowText(Wnd, buff, sizeof(buff));
      st:=StrPas(buff);
      if copy(st,1,8)='Супермаг' then
      begin
        for i:=8 to length(st) do
        begin
          if st[i]='@' then b:=true;
          if st[i]=' ' then b:=false;
          if b=true then magbase:=magbase+st[i];
        end;
        break;
      end;
    END;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  END;
  magbase:=copy(magbase,2,length(magbase)-1);
  OracleSession1.LogonDatabase:=magbase;
//еще указываем имя польз. и пароль
  OracleSession1.Connected:=true;
end;

//  В Uses дописываем Registry;
// в var -   Registry: TRegistry;

  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_CURRENT_USER;
  Registry.OpenKeyReadOnly('SOFTWARE');
  Registry.OpenKeyReadOnly('Service Plus');
  Registry.OpenKeyReadOnly('SuperMag2000');
  Registry.OpenKeyReadOnly('Супермаг 2000');
  Registry.OpenKeyReadOnly('LastLogin');
  magbase:=Registry.ReadString('Database');
  Registry.Free;