apublic.~pas

直接可以编译运行

unit Apublic;

interface
var
login_user:String='out';
login_name:String='';
login_pass:String='';
login_admin:String;
login_id:String;
implementation

end.