Сохранение из буфера обмена ФАЙЛА(а не текста) Delphi?

[magistrmediv]

Файл приходит частично(не весь)
вот мой вариант но он почемуто сохраняет часть файла но не весь?

procedure TForm1.Writing(Text: string);
begin
if MS.Size < Size then // Если принято байт меньше размера файла, то...
MS.Write(Text[1], Length(Text)); // Записываем в буфер
// Выводим прогресс закачки файла
ProgressBar1.Position := MS.Size*100 div Size;
StatusBar1.SimpleText := 'Принято '+IntToStr(MS.Size)+' из '+IntToStr(Size);
if MS.Size = Size then // Если файл принят, то...
begin
Receive := false; // Переводим клиента в нормальный режим
MS.Position := 0; // Переводим каретку в начало буфера
MS.SaveToFile(name);
ClientSocket1.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
SaveDialog1.FileName:=name;
if SaveDialog1.Execute then
begin
MS.SaveToFile(SaveDialog1.FileName); // Сохраняем файл
end;
MS.Free; // Убиваем буфер
StatusBar1.SimpleText := 'Файл принят';
end;
end;

Как сделать правильно?
Чтобы все доходило?
делал вот по этому примеру

http://hashcode.ru/questions/124821/сеть-как-в-delphi-xe-2-передать-файл-по-сети-любыми-методами