delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;

delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;
delphiLeft side cannot be assigned to
var
password_2:String;
password_3:String;
begin
password_2:= Password;
Delete( Password_2,1,3);
password_3:=Edit1.Text;
Delete( Password_3,1,3 );
password:= Password_2;

delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;
你的 password 一定是宣告成 const 变数
procedure func(const password: string);
改成 var 就行了
procedure func(var password: string);