Variable Declaration with Default Value in Procedures

Question

You could declare a variable with a default value in Procedures?

procedure TfrmManutencao01.FormShow(Sender: TObject);
var
  lPriAber : Boolean = True;
begin
.
.
.
end;

I know that as it is above Delphi does not accept.

Answer 1

Directly answering the question: No, Cannot initialize local variables.

What you can do is declare the variable before the section implementation

var
  FormX    : TFormX;
  lPriAber : Boolean = True;

That way you can use it in the procedure.

If by chance it is not changing its value, one can locally declare it as constant.

procedure TfrmManutencao01.FormShow(Sender: TObject);
const
  lPriAber : Boolean = True;
begin
..
end;

I still can’t understand the need.