procedure TForm2.Button1Click(Sender: TObject);
begin
usrname:=Form1.edNick.Text;
Form2.showmodal;
end;