Подскажите

[Feimos-D]

Только начал учиться писать скрипты, собственно идея была такая:
2 окна:
-первому окну пишут в пм, он пишет в пм второму окну

const
name='123';
procedure Say2(msg:string);
begin
if FromServer and (ConnectName=Name) and (pck[1]=#$4A) then
begin
buf:=#$38;
WriteS(msg);
WriteD(2);
WriteS(name);
SendToServer;
end;
end.

не знаю как добавить пм в первом случае и как добавить ник тому кому писать, направьте на правильный путь)

[Feimos-D]

ну неужели никто не подскажет?