[ChinYan]

Нихрена в вашем коде не ясно.
Что такое buf? Уверены ли в адресе сайта?

Код:

for i:=1 to length(buf) do
begin
delete(buf,1,3);
end;

этот код вам зачистит весь buf