Delphi -ipworks - Как отправить файл через tcp?

Question

Я хочу отправить файл с компонентом "ipworks". Вот мой код:

Клиентская сторона:

    IPPort1.SendFile('1.PNG');

Серверная сторона:

    procedure TForm1.IPDaemon1DataIn(Sender: TObject; ConnectionId:       Integer;
    Text: String; EOL: Boolean);
    begin
    if IPDaemon1.AcceptData[ConnectionId] then
    //Here is my problem