In Delphi code runs line by line soon if you have the following code:
A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Message: A = 5; B = 5
You are assigning the same value of A as B variable.
For B to have a value other than A just remove the assignment of the same " B := A;
" code example:
A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Message: A = 10; B = 62
Not being the most correct option (depending on the cases) you can still reassign the value of the B variable, for example:
A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Message: A = 10; B = 10
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Message: A = 10; B = 62
There is also a last option that is to assign a new value to A as follows, for example:
A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Message: A = 10; B = 5