EAccessViolation при завершении приложения

[100GRamm]

Добра всем!
Столкнулся с такой проблемой, не могу решить:
При завершении приложения вылетает ошибка "Exception EAccessViolation in module..."
yy.jpg
Вроде бы никаких ресурсов не трогаю, перепробовал отключать очистки переменных, но увы: ошибка сто процентов всегда появляется, при чем в IDE её не отследить.

вот код приема файла (в принципе работает иногда зависает):
оригинальный код тут (работает лишь с текстовыми файлами)

...    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); 
  private
    Name: string; // Имя файла
    Size: integer; // Размер файла
    Receive: boolean; // Режим клиента
    MS: TMemoryStream; // Буфер для файла
    P: ^Byte;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Rtext: string; // Принятый текст
  L:integer;
begin
  if Receive then // Если клиент в режиме приёма файла, то...
    // Записываем данные в буфер
    begin
      if MS.Size < Size then // Если принято байт меньше размера файла, то...
      L:=Socket.ReceiveLength;
      Socket.ReceiveBuf(P,L);     
      MS.WriteBuffer(P,L);
      ProgressBar1.Position := MS.Size*100 div Size;
      Label1.Caption:='Принято '+IntToStr(MS.Size)+' из '+IntTostr(Size);
      if MS.Size = Size then // Если файл принят, то...
       begin
        Receive := false;
        MS.Position := 0;
        MS.SaveToFile(extractfilepath(paramstr(0))+Name);
        ClientSocket1.Socket.SendText('#end#');
        MS.Free;
        memo1.Lines.Add('Файл принят');
       end;
    end
  else// Если клиент не в режиме приёма файла, то...
 begin
    Rtext:=Socket.ReceiveText;
   if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then // Если это файл, то...
    begin
      MS := TMemoryStream.Create; // Создаём буфер для файла
      Delete(Rtext, 1, Pos('#', Rtext)); // Определяем имя файла
      Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
      Delete(Rtext, 1, Pos('#', Rtext)); // Определяем размер файла
      Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
      Delete(Rtext, 1, Pos('#', Rtext)); // Удаляем последний разделитель
      memo1.Lines.Add('Размер файла: '+IntToStr(Size)+' байт');
      memo1.Lines.Add('Имя файла: '+Name);
      Receive := true; // Переводим сервер в режим приёма файла
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.Open; 
  Receive := false; // Режим клиента - приём команд
end;

[Stilet]

Напиши:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Rtext: string; // Принятый текст
  L:integer;
begin
 exit;

Будет ошибка?

[100GRamm]

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

Напиши:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Rtext: string; // Принятый текст
  L:integer;
begin
 exit;

Будет ошибка?

Нет, ошибки нет. Ошибка возникает только если проходила пересылка .

Есть подозрение , но точно не знаю: я ж использую P: ^byte, надо ли как то определять размер выделяемой памяти? а может быть как -то явно стоит ее освобождать?

Сделал так, но результат тот же

private
Name: string; // Имя файла
Size: integer; // Размер файла
Receive: boolean; // Режим клиента
MS: TMemoryStream; // Буфер для файла
P: array of Byte;

и так тоже

P: array [0..1024] of Byte;

[Stilet]

А ты память не выделяешь? Если нет, то конечно нужно выделять и освобождать.

[100GRamm]

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

А ты память не выделяешь? Если нет, то конечно нужно выделять и освобождать.

это как? если не секрет?

если так: MS.Free;
а массив явно определен : P: array [0..1024] of Byte;

[Stilet]

      L:=Socket.ReceiveLength;
p:=GetMem(l);
      Socket.ReceiveBuf(P,L);     
      MS.WriteBuffer(P,L);
FreeMem(p,l);

Только не понимаю, как ты не зная таких основ смог написать такой код?

[p51x]

Только не понимаю, как ты не зная таких основ смог написать такой код?

Копи-паст и гугл помогли...

[Stilet]

Копи-паст и гугл помогли.

Ну да. Похоже на то.

[100GRamm]

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

Ну да. Похоже на то.

не похоже, а так и сделал, и ссылку оставил.
Зачем рисовать велосипед, если он уже есть?
Немного адаптировал код под передачу бинарных данных (см.ссылку)
qq.jpg
yy221.jpg
yy22.jpg
..никогда не думал что этой функцией можно выделять для Byte память... в итоге так сделал : GetMem(P,L);

..все равно ошибка при закрытии тоже

[Stilet]

Зачем рисовать велосипед, если он уже есть?

Да, но если он с квадратными колесами и плохо закрепленным рулем (а твой код кстати нестабилен, если ты используешь раритетные компоненты), может и стоит изобрести новый велосипед посовременней.