Локальный чат в делфи

[Dimax1]

Доброго времени суток всем, недавно начали изучать делфи, задали курсовую, препод сам ничего не обьясняет, и даже не проходили такого.
Нужно написать чат для локальной сети, скачивать готовые не хочу, написал свой, по учебнику, но ругается, не могу понять на что
вот исходник
Кто может помогите плиз, скоро здавать

[Fenex]

но ругается, не могу понять на что

Так напишите сюда ошибку, которую выдаёт вам компилятор.

[Dimax1]

Сообщение от Fenex

Так напишите сюда ошибку, которую выдаёт вам компилятор.

Fenex
Текст ошибки
[DCC Error] Unit1.pas(48): E2010 Incompatible types: 'TStream' and 'TBytes'
на эту строчку StringFormatedStream.CopyFrom(AData , AData.Size);
вот ещё одна [DCC Error] Unit1.pas(48): E2029 '(' expected but ')' found
Тоже на эту же строчку
Потом ругается на эту строчку
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
Текст ошибки
[DCC Error] Unit1.pas(50): E2066 Missing operator or semicolon
Потом ругается на эту строчку
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
Текст ошибки
[DCC Error] Unit1.pas(52): E2250 There is no overloaded version of 'SendTo' that can be called with these arguments
И на эту строчку
StringFormatedStream:=Free;
Текст ошибки
[DCC Error] Unit1.pas(54): E2010 Incompatible types: 'TStringStream' and 'procedure, untyped pointer or untyped parameter'

Вообщем ругается почти на всё что я написал, хотя красным не подчёркнуто
Подчёркнуто только в этой строчке
StringFormatedStream.CopyFrom(AData , AData.Size);
параметр AData.Size а именно только на часть Size

[Stilet]

Ага. AData судя по всему массив байт (TBytes)?
Тогда вместо CopyFrom используй Write

[Dimax1]

Всё ровно ошибка не убралась
Вот, сделал скрин

[Stilet]

Не. Это массив. Тут нужно чт-то типа Length(AData). Это не объект.

[Dimax1]

Скачай проект, попробуй открыть и изменить код, потому что я всё ровно никак понять не могу..

[Fenex]

Можно подумать у всех стоит эта среда разработки...

[Stilet]

я всё ровно никак понять не могу..

Так может лучше нанять фрилансера?
Ведь ошибка решается просто:

 StringFormatedStream.WriteBuffer(AData[0],Length(AData));

[Dimax1]

Стилет, спасибо большое, но теперь ругается тут на аргументы
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
вот сообщение компелятора
[DCC Error] Unit1.pas(60): E2250 There is no overloaded version of 'SendTo' that can be called with these arguments

И сюда почему то
StringFormatedStream:=Free;
[DCC Error] Unit1.pas(62): E2010 Incompatible types: 'TStringStream' and 'procedure, untyped pointer or untyped parameter'