процедура странно работает

[3D Hunter]

если асинхронные сокеты и многоядерный процессор, есть мысль обернуть ваш код процедуры в критическую секцию. Объявите переменную FRTL типа TRTLCriticalSection в секции private вашей формы, в конструкторе формы добавьте InitializeCriticalSection(FRTL), в деструкторе DeleteCriticalSection(FRTL). А в самой процедуре по сабжу оберните в марный вызов

procedure TData.TerminalToCenterClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
temp,otvet : tstrings;
i : integer;
begin
  EnterCriticalSection(FRTL);
  try
    <ваш код процедуры>
  finally
    LeaveCriticalSection(FRTL);
  end;
end;