arrayOfObject = (Object[])localBundle.get("pdus");
int j=arrayOfObject.length;
i=1
while (true)
{
if(i>=j)
break;
String MessageNumber = localSmsMessage.getOriginatingAddress();
String MessageText = localSmsMessage.getDisplayMessageBody();
long l= localSmsMessage.getTimestampMillis();
Date localDate=new Date(l);
String MessageTimeDate = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss").format(localDate);

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
r:integer;
r1:integer;
begin
for r:=1 to T7.rowcount do
for r1:=1 to T7.rowcount do
begin

uses Math;
const
M = 10;
var
C, P, X: array[0..M] of integer;

function ds(C,P: array of integer): boolean;
var
i, j: integer;
begin
Result:= true;
for i:= 0 to Length(C)-1 do
for j:= 0 to Length(P)-1 do
if C = P[j] then Result:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to M-1 do
begin
C := Random(100);
P := Random(100);
end;

StringGrid1.ColCount:= M;

for i:= 0 to StringGrid1.ColCount-1 do
with StringGrid1 do
begin
Cells[i,0]:= 'C'+ IntToStr(i+1);
Cells[i,1]:= IntToStr(C );
Cells[i,3]:= 'P'+ IntToStr(i+1);
Cells[i,4]:= IntToStr(P );
Cells[i,6]:= 'X'+ IntToStr(i+1);