Someone

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
fp1:='phpmyadmin';
fp2:='phpMyAdmin';
fp3:='webalizer';
xstart1:='<title>php';
xstart2:='<title>php';
xstart3:='<H2>Usa';
xmiddle1:='m';
xmiddle2:=ord('M');
xmiddle3:='g';
xend1:='y';
xend2:='y';
xend3:='<';
end;