var
B:Pchar;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.clear;
B := DDEClientConv1.RequestData('Groups');
ListBox1.Items.SetText(B);
StrDispose(B);
end;
__________________