Изменение значения по указателю

[NEoMASTERR]

Здравствуйте, столкнулся с проблемой, есть обработчик сообщений в который поступает адрес на структуру, надо изменить на выходе ее result, он меняется но только в пределах обработчика, подскажите что не так

PHP код:

  PMyMes = ^TMyMes;
  TMyMes = record
  result:integer;
  case isString: Boolean of
  true: (s1,s2:string[255]);
  False: (i1,i2:Integer);
  end; 


отправка

PHP код:

procedure TForm1.FormShow(Sender: TObject);
var
  m:PMyMes;
begin
  New(m);
  m^.isString:=true;
  m^.s1:='test';
  m^.s2:='test';
  PostMessage(handle,WM_USER+1,ME_LOGIN,lparam(m));

  mmo1.Lines.Add(inttostr(m^.result));   // <- всегда возвращает 4761100
end; 


Обработчик

PHP код:

procedure TForm1.basesync(var Msg: TMessage);
var
  m:PMyMes;
begin
  case  Msg.wparam of
    ME_LOGIN: begin
                m:=PMyMes(msg.lparam);
                if users.Locate('login',m^.s1,[])=true then m^.Result:= integer(users['password'] = m^.s2);
              end;
  end;
end; 


[Аватар]

Откуда там возьмется результат, если сообщение еще не обработано? SendMessage и Dispose(m) не забудь

[NEoMASTERR]

Сообщение от Аватар

Откуда там возьмется результат, если сообщение еще не обработано? SendMessage и Dispose(m) не забудь

Благодарю) перепутал sendmessage и postmessage