procedure TForm1.Button7Click(Sender: TObject);
begin
Listbox1.Items.SaveToFile('c:\GoogleUrl.txt');
end;

function Tform1.sbegin1: string;
var
Selection7:String;
position1 : Integer;
position2 : Integer;
position3 : Integer;
position4 : Integer;
za1:string;
za3:string;
za4:string;
zo1:string;
zo3:string;
zo4:string;
za2:string;
zo2:string;
fi:integer;
begin
for fi := 0 to ListBox1.items.count -1 do
begin
if xstop='1' then
begin
exit;
end;
try
Application.ProcessMessages;
label2.Caption:=(IntToStr(ListBox1.Items.Count -fi));
Application.ProcessMessages;
Selection7:=  ListBox1.Items[fi];
zo1:='';
zo2:='';
zo3:='';
zo4:='';
Application.ProcessMessages;
za1:=idhttp1.Get('http://'+Selection7+'/phpmyadmin/');
Application.ProcessMessages;
zo1:=(za1);
Application.ProcessMessages;
except
On e : Exception do
end;
position1 := AnsiPos('<title>phpMyAdmin', zo1);
if position1 <> 0 then begin
ListBox2.Items.Add(Selection7);
label10.Caption:=(IntToStr(ListBox2.Items.Count));
end;
try
Application.ProcessMessages;
za2:=idhttp2.Get('http://'+Selection7+'/phpMyAdmin/');
Application.ProcessMessages;
zo2:=(za2);
except
On e : Exception do
end;
position2 := AnsiPos('<title>phpMyAdmin', zo2);
if position2 <> 0 then begin
ListBox6.Items.Add(Selection7);
label11.Caption:=(IntToStr(ListBox6.Items.Count));
end;
try
Application.ProcessMessages;
za3:=idhttp3.Get('http://'+Selection7+'/webalizer/');
Application.ProcessMessages;
zo3:=(za3);
except
On e : Exception do
end;
position3 := AnsiPos('<H2>Usa', zo3);
if position3 <> 0 then begin
ListBox7.Items.Add(Selection7);
label12.Caption:=(IntToStr(ListBox7.Items.Count));
end;
try
Application.ProcessMessages;
za4:=idhttp4.Get('http://'+Selection7+'/cgi-bin/awstats.pl');
Application.ProcessMessages;
zo4:=(za4);
except
On e : Exception do
end;
position4 := AnsiPos('awstats', zo4);
if position4 <> 0 then begin
ListBox8.Items.Add(Selection7);
label13.Caption:=(IntToStr(ListBox8.Items.Count));
end;
end;
end;