udp.ReceiveBuffer дублирует текст

[NEoMASTERR]

Здравствуйте, отправляю текст по удп (TIdUdpClient) и получаю иногда ответ дважды (но ответ был один), помогите пожалуйста.

function TCsServerListener.Send(pcs:PCsServer; var buf; buflen:Word):string;
var
  s:PChar;
  b:array [0..1400] of char;
  i:Integer;
begin
  Result:='';
  FillChar(b[0],length(b),#0);
  udp.SendBuffer(pcs^.FIp, pcs^.FPort, buf, buflen);
  i:=1;
  while i<>0 do
  begin
    i:=udp.ReceiveBuffer(b[0],length(b));
    log('Received size: '+inttostr(i)+' bytes');     // для теста, выводит 911 байт
    if i = 0 then break;
    if copy(string(b),1,4) = 'юяяя' then move(b[9],b[0],length(b));
    if copy(string(b),1,5) = 'яяяяl' then move(b[5],b[0],length(b));
    log('Received text: ###'+copy(string(b),1,i)+'###');    // выводит полученный текст
    Result := Result + copy(string(b),1,i);
  end;
end;

i:=udp.ReceiveBuffer(b[0],length(b));
log('Received size: '+inttostr(i)+' bytes');

получает 2 раза одно и то же значение, как то можно сбросить предыдущее? Или другой вариант (кроме проверки на совпадение пакетов конечно же)
Естественно и проверка на совпадение размера пакета не подойдет, сервер ограничен порогом в 1400 байт так что он режет сообщения, и может несколько по 1400 прислать подряд