procedure DeleleMessage;
var
  ResponseData: TStringStream;
  PostData: TStringStream;
  ids: string;
begin
  HTTP := THTTPSend.Create;
  HTTP.Document.Clear;
  HTTP.Headers.Clear;
  ResponseData := TStringStream.Create;
  PostData := TStringStream.Create;

  {
    Тут нам нужно составить список сообщений для удаления. Список должен быть в таком формате: id1,id2,id3..idX
    Как парсить id я тут рассказывать не буду, способов масса. От банального 10000,9999,9998..1, до парсинга со страницы mail.php

   id := 100,65,32,64 // удалит сообщения с id 100,65,32,64
  }
      PostData.Clear;
      PostData.WriteString('al=1&mark=del&msgs_ids=' + ids);
      HTTp.Document.Clear;
      HTTP.Headers.Clear;
      HTTP.MimeType:='application/x-www-form-urlencoded';
      HTTP.Document.LoadFromStream(PostData);
      HTTP.HTTPMethod('POST', 'http://vkontakte.ru/mail?act=a_mark');

  FreeAndNil(ResponseData);
  FreeAndNil(PostData);
  FreeAndNil(HTTP);
end;