Ошибка Left Side cannot be assigned to..

[DM_bite]

При попытке компилить выдаёт ошибку :Left Side cannot be assigned to...

var
  Form1: TForm1;
  Reg: TRegIniFile;
  x: integer;
  password: String;

  const pass1: string = 'xxxxxx';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
password := LabeledEdit1.Text;
 Reg:= TRegIniFile.Create;
 Reg.RootKey:= HKEY_LOCAL_MACHINE;
 Reg.ReadString('Software\Microsoft\Windows\Curre ntVersion\Run','Lock',pass1):password;
 Reg.Free;
end;

ошибка именно в

Reg.ReadString('Software\Microsoft\Windows\Curre ntVersion\Run','Lock',pass1):password

,но если убираю password все ок...

[Alter]

Вообще-то читают значение так:

password := Reg.ReadString('Software\Microsoft\Windows\Curre ntVersion\Run','Lock',pass1);

интересно, что побудило дописать password в конце функции?