Передача Float через SendMessage(LParam)

bool __fastcall TForm1::DataWaveIn(HWND hWnd, HWAVEIN hWaveIn, LPWAVEHDR pHdr)
{
float LevelLeft = 0.0004342;
SendMessage(Form1->Handle,WM_USER+1, LevelLeft);
    return(TRUE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMUSER1(TMessage &msg)
{
    DisplayStaticText->Caption=msg.LParam;
}

SendMessage(Form1->Handle,WM_USER+1, (DWORD&) (float)LevelLeft);

bool __fastcall TForm1::DataWaveIn(HWND hWnd, HWAVEIN hWaveIn, LPWAVEHDR pHdr)
{
  float LevelLeft = 0.0004342;
  int a=*((int*)(&LevelLeft));
  SendMessage(Form1->Handle,WM_USER+1, a);
  return(TRUE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMUSER1(TMessage &msg)
{
  int a=msg.LParam;
  float f=*((float*)(&a));
  DisplayStaticText->Caption=f;
}

bool __fastcall TForm1::DataWaveIn(HWND hWnd, HWAVEIN hWaveIn, LPWAVEHDR pHdr)
{
static float LevelLeft = 0.0004342;
SendMessage(Form1->Handle,WM_USER+1, &LevelLeft);
    return(TRUE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMUSER1(TMessage &msg)
{
    DisplayStaticText->Caption = FloatToStr( *( msg.LParam ) );
}

SendMessage(Form1->Handle,WM_USER+1, 0, a);

    float LevelLeft = edit1->Text.ToDouble( );
    HWND proc = FindWindow( 0, L"Form2" );
 
    SendMessage( proc, WM_USER + 1, 0, *( long * ) &LevelLeft );

void __fastcall TForm2::New_Form_Proc( TMessage &msg ) {
    switch ( msg.Msg ) {
    case WM_USER + 1:
        ShowMessage( "lparam = " + FloatToStr( *( ( float * ) &( msg.LParam ) ) ) );
        break;
    }
    Old_Form_Proc( msg );
}