TCheckListBox Вопрос

[Квэнди]

Показывай код программы.

[Рома]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, OleCtrls, SHDocVw, CheckLst;

type
TfrmXMLOrnek = class(TForm)
Memo1: TMemo;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
CheckListBox1: TCheckListBox;
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
strXML: string;
function HTTPPoster(prmPostAddress:string; prmSendData:WideString):WideString;
end;

var
frmXMLOrnek: TfrmXMLOrnek;
const
VK_CRLF: string = Chr(13) + Chr(10);//Enter
VK_LF: Char = Chr(10);//LineFeed
VK_SP: Char = Chr(32);//Space

implementation

uses MSXML_TLB;

{$R *.dfm}


{ TfrmXMLOrnek }

var
XMLUserName : string = '';
XMLPassword : string = '';
XMLOrginator : string = 'EuroTest';
XMLPostURL : string = 'http://admin.smscell.com.ua/sections/service/xmlpost/v1/default.aspx';

function TfrmXMLOrnek.HTTPPoster(prmPostAddr ess: string; prmSendData: WideString): WideString;
var
XMLSender:TXMLHTTPRequest;
begin
try
XMLSender:=TXMLHTTPRequest.Create(A pplication);
XMLSender.open('POST',prmPostAddres s,False);
XMLSender.send(prmSendData);
Result:=XMLSender.responseText;
except
Result:='';
end;



procedure TfrmXMLOrnek.Button3Click(Sender: TObject);
begin
strXML:='<?xml version="1.0" encoding="utf-8"?>'+
'<packet version="1.0">'+
'<auth username="' + XMLUserName+ '" password="' + XMLPassword + '"/>'+
'<command name="SendMessage">'+
'<message type="UnicodeSms">'+
'<from>Dispetcher</from>'+
'<sendDate>'+'</sendDate>'+
'<data></data>'+
'<recipients>'+
'<recipient address="380933245001">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245002">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245003">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245004">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245005">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245006">"'+ Edit1.Text + '"</recipient>'+
'</message></command></packet>';
Memo1.Text:=HTTPPoster(XMLPostURL, strXML);
end;

procedure TfrmXMLOrnek.Button4Click(Sender: TObject);
begin
strXML:='<?xml version="1.0" encoding="utf-8"?>' +
'<packet version="1.0">' +
'<auth username="' + XMLUserName+ '" password="' + XMLPassword + '"/>'+
'<command name="GetCurrentCredit"/> ' +
'</packet> ' ;
Memo1.Text:=HTTPPoster(XMLPostURL, strXML);
end;


end.

[Рома]

Там где номера мне надо чтоб было окошко в котором я мог отметить номер и на него индивидуально отправить смс