List index out of bounds (0)

[waka2ebawer]

при нажатие на кнопку Send file выкидывает ошибку
Division by zero

procedure TForm1.Button1Click(Sender: TObject);
var
  Size:Integer;
  P:^Byte;
begin
OpenDialog1.Execute;
ServerFile.Open;
FileEdit.Text:=OpenDialog1.FileName;
MS:=TMemoryStream.Create;
ServerFile.Socket.Connections[0].SendText('file#'+FileEdit.Text+'#'+IntToStr(MS.Size)+'#');
MS.Position:=0;
P:=MS.Memory;
Size:=ServerFile.Socket.Connections[0].SendBuf(P^,MS.Size);
ProgressBar1.Position:=Size*100 div MS.Size;
StatusBar1.SimpleText:=IntToStr(Size)+'#'+IntToStr(MS.Size)
end;

[kangreon]

Попробуйте в режиме отладки пошагово пройтись, F7 и посмотреть где выскакивает ошибка.

[Ghost of Night]

ProgressBar1.Position:=Size*100 div MS.Size;

Проверьте значение MS.Size, скорее всего оно равно нулю..