Delphi 2010 в delphi работает норм, срочно! ! курсач горит, через час сдавать (( а не работает

Пример работы с UDP
(***************** РАБОТА НА СТОРОНЕ КЛИЕНТА **********************************)
procedure TMainForm.FormCreate(Sender: TObject);
var
s: string;
begin
// здесь мы просим ввести IP адрес, по умолчанию стоит "localhost", так что если
// мы ни чего не введем, то прогрмма будет общаться сама с сабой, ну а если
// введем, то неплохобы позаботится о наличии на удаленном компьютере
// запущенной копии нашей программы, для проверки работоспособности
if InputQuery('Программа-пример по UDP',
'Введите IP адрес удаленной машины, иначе будете разговаривать сами с сабой :)',s)=true then
UDPClient.Host:=s;
end;
procedure TMainForm.SetFileClick(Sender: TObject);
begin
// здесь просто указываем файл для отправки
if OpenDialog.Execute then FileEdit.Text:=OpenDialog.FileName;
end;
procedure TMainForm.SendBtnClick(Sender: TObject);
begin
// здесь просто отправляем текстовое сообщение
UDPClient.Send('text'+SendEdit.Text);
SendEdit.Clear;
end;
procedure TMainForm.SendFileBtnClick(Sender: TObject);
var
MemStream : TMemoryStream;
begin
// здесь отправляем файл
// создаем поток в памяти
MemStream:= TMemoryStream.Create;
// загружаем файл в наш поток
MemStream.LoadFromFile(FileEdit.Text);
//
// отправляем наш поток
UDPClient.SendBuffer(MemStream.Memory^,MemStream.Size);
// освобождаем память
MemStream.Free;
end;

(***************** РАБОТА НА СТОРОНЕ СЕРВЕРА **********************************)
procedure TMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
// объявляем 2 потока, один для строк, другой для любой другой информации
// в нашем случае для файлов (так же можно пересылать что угодно)
StrStream : TStringStream;
MemStream : TMemoryStream;
begin
// здесь происходит обработка данных пришедших от клиента
// на данном этапе есть маленькая логическая бомба, все что длинной до 255
// я считаю текстом (стандартное ограничение строковой переменной) , а что
// больше 255, то это уже файл, на самом деле и файл может весить 255,
// это конечно редкость но может быть, как это исправить подумай сам (мне лень) :)
if AData.Size<=255 then
begin
// итак к нам пришел текст, работаем с потоком строк
// создаем строковый поток
StrStream:=TStringStream.Create('');
// читаем данные в этот поток из пришедшего потока
StrStream.CopyFrom(AData, AData.Size);
// добавляем данные в приемник, указывая перед этим от кого этот текст
Memo.Lines.Add(ABinding.PeerIP+': '+copy(StrStream.DataString,5,length(StrStream.DataString)));
// освобождаем память
StrStream.Free;
end else
begin
// итак к нам пришел файл, работаем с потоком в памяти
MemStream:= TMemoryStream.Create;
// загружаем файл в наш поток
MemStream.CopyFrom(AData, AData.Size);
// выводим диалог сохранения файла
if SaveDialog.Execute then MemStream.SaveToFile(SaveDialog.FileName);
// освобождаем память
MemStream.Free;
end;
end;
end.