Работа с mailslot

#include <vcl.h>
#pragma hdrstop
#include <winbase.h>
#include <stdlib.h>
#include <lm.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
ComboBox1->ItemIndex=2;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    DWORD num,msg,read;
    char buf[512];
 
    bool ret = GetMailslotInfo(hMailsl,NULL,&msg,&num,NULL);
    if (ret == false)
    {
        if ( Application->MessageBox("Íåìîæëèâî îòðèìàòè ³íôîðìàö³þ ç³ ñëîòà!!!", NULL, MB_OK) != IDOK)
            throw;
        Timer1->Enabled = false;
        exit(-1);
    }
    if (num != 0)
    {
        if (ReadFile(hMailsl, buf, 512, &read, NULL))
        {
            Memo1->Lines->Add((AnsiString)buf);
        }
        else {
            if ( Application->MessageBox("Íåìîæëèâî ïðî÷èòàòè ïîâ³äîìëåííÿ!!!", NULL, MB_OK) != IDOK)
                throw;
            exit(-1);
        }
    }
    ListBox1->Items->SaveToFile("baza.cfg");
    ComboBox1->Items->LoadFromFile("baza.cfg");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    char *buf;
    DWORD writen;
    AnsiString sName;
    sName="\\\\" + ComboBox1->Text + "\\mailslot\\$Channel$";
    //sName = "\\\\.\\mailslot\\$Channel$";
    hWsl = CreateFile(sName.c_str(), GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING, 0, NULL);
    if (hWsl == INVALID_HANDLE_VALUE)
    {
        if ( Application->MessageBox("Íåìîæëèâî ñòâîðèòè ñëîò äëÿ çàïèñó!!!", NULL, MB_OK) != IDOK)
            throw;
        return;
    }
    buf = Memo2->Lines->GetText();
    WriteFile(hWsl, buf, strlen(buf) +1 , &writen, NULL);
    Memo2->Clear();
    Memo2->Lines->Add("Ïîâ³äîìëåííÿ â³äïðàâëåíî");
 
    CloseHandle(hWsl);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
char *msName = "\\\\.\\mailslot\\$Channel$";
    hMailsl = CreateMailslot( msName, 0, 1000, NULL);
    if(hMailsl == INVALID_HANDLE_VALUE)
    {
        if ( Application->MessageBox("Íåìîæëèâî ñòâîðèòè MailSlot.", NULL, MB_OK) != IDOK)
            throw;
        exit(-1);
    }
    else (Memo1->Lines->Add("Ñëîò ñòâîðåíî"));
    Timer1->Interval = 1000;
    Timer1->Enabled = true;
    ComboBox1->Items->LoadFromFile("baza.cfg");
}
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TMemo *Memo1;
        TMemo *Memo2;
        TMainMenu *MainMenu1;
        TTimer *Timer1;
        TButton *Button1;
        TComboBox *ComboBox1;
        TListBox *ListBox1;
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
private:    // User declarations
public:     // User declarations
        HANDLE hMailsl, hWsl;
        char *mas;
        char *buf;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif