array of pointers

[sk.Silvia]

Delphi-Quellcode:

procedure HandleInput(Message1:string; var ExportVar:real);
var i1:integer;
    adr:real;
          begin
          Pointers[Step_input]:=@ExportVar;
          @adr:=Pointers[i1];
          
          ShowMessage(FloatToStr(adr));
          
          end;

i tried to make this, but it isnt working (@adr:=Pointers[i1]; - cannot assign left side)