Em Delphi o código é executado linha a linha logo se tiver o seguinte código:
A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Mensagem:Mensagem: A=5; B=5
Está a atribuir o mesmo valor de A á variavel de B.
Para B ter um valor diferente de A basta para isso remover a atribuição da mesma "B := A;
" exemplo de código:
A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Mensagem:Mensagem: A=10; B=62
Não sendo a opção mais correta (dependendo dos casos) pode ainda reatribuir o valor da variavel B, exemplo:
A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Mensagem:Mensagem: A=10; B=10
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Mensagem:Mensagem: A=10; B=62
Existe ainda uma ultima opção que é atribuir um novo valor a A da seguinte forma, exemplo:
A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));
Mensagem:Mensagem: A=10; B=5