Помогите до ума доработать

[dyh9l]

Вот есть небольшие наброски, это заставлять твинка атаковать, но у мну появились пробелмы с SendToServerEx синтаксис, а может я вобще в корне неправильно атаку начал делать, вобщем хелп)

[NLObP]

dyh9l, пакеты таргета и атаки такие должны быть
//************************************************** *************
//04=Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ )b(ShiftFlag)
procedure Target(Attacker: Integer);
begin
buf:=#$04;
WriteD(Attacker);
WriteD(MyXpos);
WriteD(MyYpos);
WriteD(MyZpos);
WriteC(00);
SendToServerEx(Name);
end;

//************************************************** *************
//0A=Attack:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ )b(ShiftFlag)
procedure Attack(Attacker: Integer);
begin
buf:=#$0A;
WriteD(Attacker);
WriteD(MyXpos);
WriteD(MyYpos);
WriteD(MyZpos);
WriteC(00);
SendToServerEx(Name);
end;

В комбобоксе лежат строки.
Вот так из комбобокса строку в число перевести,

WriteD(StrToInt(combo.items.strings[combo.itemindex]));

Вот так из комбобокса просто строку получить,

SendToServerEx(combo2.items.strings[combo2.itemindex]);

[supernewbie]

items.strings?
почему бы не combo2.items[combo2.itemindex]

Добавлено через 12 минут
да и тем более что забей, скрипт ему я уже поправил...

[dyh9l]

дааа) я выслушал очень много критики)