Сигналы с MIDI-клавиатуры

[HellMercenariess]

Здравствуйте!
не могу справится с простой задачей, надо отсечь сигналы с мидиклавы с 40 в конце (клавиша отжата)

[06:28:06.640] Àóäèî USB: <Status> 80, <Data 1> 50 <Data 2> 40
[06:28:06.640] Àóäèî USB: <Status> 80, <Data 1> 5E <Data 2> 40
[06:28:06.625] Àóäèî USB: <Status> 80, <Data 1> 4B <Data 2> 40
[06:28:06.625] Àóäèî USB: <Status> 80, <Data 1>
[06:28:04.109] Àóäèî USB: <Status> 90, <Data 1> 55 <Data 2> 21
[06:28:03.640] Àóäèî USB: <Status> 90, <Data 1> 4E <Data 2> 63
[06:28:03.359] Àóäèî USB: <Status> 90, <Data 1> 50 <Data 2> 4D
[06:28:03.343] Àóäèî USB: <Status> 90, <Data 1> 4B <Data 2> 41
[06:28:01.843] Àóäèî USB: <Status> 80, <Data 1> 50 <Data 2> 40
[06:28:01.843] Àóäèî USB: <Status> 80, <Data 1> 4B <Data 2> 40
[06:28:01.593] Àóäèî USB: <Status> 80, <Data 1> 4E <Data 2> 40
[06:28:01.218] Àóäèî USB: <Status> 90, <Data 1> 4E <Data 2> 46
[06:28:00.390] Àóäèî USB: <Status> 90, <Data 1> 50 <Data 2> 56

procedure TForm1.DoMidiInData(const aDeviceIndex: integer; const aStatus,
  aData1, aData2: byte);
if (aData2<>00) then
        begin  
       if (Int(aData2)<>40) then
       inc(Pressed);
       if Advanced.Checked then
     memLog.Lines.Insert( 0, Format( '[%s] %s: <Status> %.2x, <Data 1> %.2x <Data 2> %.2x',
      [ FormatDateTime( 'HH:NN:SS.ZZZ', now ),
           MidiInput.Devices[aDeviceIndex],
        aStatus,
        aData1,
        aData2 ] ));

Сообщения с двумя нолями отфильтровал, с "40" не получается, пробовал по разному.

[Аватар]

Стесняюсь спросить - 40 десятичное или шестнадцатиричное? Пытаетесь отловить десятичное, в приведенном фрагменте шестнадцатиричное