Поиск музыки vkontakte

[Flexoid2]

Существует вопрос как искать музыку через программу, что бы результат выводился в листбокс. Вот я кое-что нарыл , но как это пристроить к программе с одним едитам кнопке и листбоксам?

procedure Audio_Search(const Query: string; ATarget: TStrings);
var
Req : string;
Sign : string;
Host : string;
AXML : TStringList;
AQ : string;
iDur : Integer;
I : Integer;
arts, url,
titles : TStringList;
dur : TStringList;
begin
AQ := Query;
AQ := StringReplace(AQ, ' ', '%20', [rfReplaceAll]);
AXML := TStringList.Create;
Arts := TStringList.Create;
Titles := TStringList.Create;
Dur := TStringList.Create;
urls.Clear;

Host := 'api.vkontakte.ru';
Req := 'q=' + AQ + '&sort=0&method=audio.search&coun t= 100&offset=0&api_id=1931178&v=3.0&f ormat=XML';
Sign := SignRequest(Req, mid, secret);

Req := Req + '&sig=' + sign + '&sid=' + sid;

AXMl.Text := http.Get('http://' + Host + '/api.php?' + Req);

For I := 0 To AXMl.Count -1 do
begin
If Pos('<url>', AXML[i]) <> 0 Then
Urls.Add(Parse('<url>', AXML[i], '</url>'));
If Pos('<artist>', AXML[i]) <> 0 Then
Arts.Add(Parse('<artist>', AXML[i], '</artist>'));
If Pos('<title>', AXML[i]) <> 0 Then
Titles.Add(Parse('<title>', AXML[i], '</title>'));
If Pos('<duration>', AXML[i]) <> 0 Then
begin
iDur := StrToInt(Parse('<duration>', AXML[i], '</duration>'));
Dur.Add(FormatMSec(iDur * 1000, False));
end;
end;

[mihali4]

Еще раз, теперь для особо тупых :
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор