что делает этот код в приеме сообщений.(файлы работающей проги прилагаются)

[Kolan]

Есть 2 программы одна посылает сообщения второй, вторая принимает сообщения от первой. Вот ссылка на 2 рабочие проги:
http://depositfiles.com/files/lpg8nxtgl.
Я не пойму что делает небольшой участок кода.

Const
wm_My=wm_User+300;  //В этой строчке
type
  TwmMy= packed record
    Msg: Cardinal;
    case byte of            //И в этой, и что оно меняет.
    0:(A:integer; B:integer; result: integer);
    1:(WParam : longint; LParam:LongInt; res:LongInt);
    end;

Мне это надо для того чтобы сделать задание:
Надо переделать код так чтобы он отправлял символьные значения а не численные, и выдавал результат - строку. Простой заменой типов и их значений дело не решилось.
Программа отправляющая сообщения:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Const
wm_My=wm_User+300;
type
  TwmMy= packed record
    Msg: Cardinal;
    case byte of
    0:(A:integer; B:integer; result: integer);
    1:(WParam : longint; LParam:LongInt; res:LongInt);
    end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Windowname:hwnd;
mess:TWMMY;
begin
WindowName:=FindWindow(Integer(0),'Printmessage');
mess.A:=8  ;
mess.B:=7 ;
SendMessage(WindowName,wm_my,mess.WParam,mess.LParam);
end;

end.

[Man84]

wm_My=wm_User+300;

Устанавливает код сообщения: со значения wm_User начинаются пользовательские сообщения, меньше - сообщения Windows.
А далее идёт вариантная запись; чтобы посылал символы и выдавал строку:

  TwmMy= packed record
    Msg: Cardinal;
    case byte of
      0:(A:integer; B:integer;Result: integer);
      1:(WParam : longint; LParam:LongInt; res:LongInt);
      2:(D:char; E:char; Res3: char);
    end;
    ...
procedure TForm1.Button1Click(Sender: TObject);
var
  m:TwmMy;
begin
  m.D:='j';
  m.E:='t';
  SendMessage(findwindow(nil,'Printmessage'),wm_my,m.WParam,m.LParam);
end;

В принимающей части:
[CODE]

  TwmMy= packed record
    Msg: Cardinal;
    case byte of
      0:(A:integer; B:integer;Result: integer);
      1:(WParam : longint; LParam:LongInt; res:LongInt);
      2:(D:char; E:char; Res3: char);
    end;
    ...
procedure TDestination.Postmessage(var msg: TwmMy);
begin
  edit1.Text:=msg.D + msg.E;
end;