Yes, you can do this. For example:
Simba Code:
program new;
procedure myProc(myParam: string = 'bankbooth');
begin
writeLn(myParam);
end;
begin
myProc();
end.
This is what's known as a default parameter. It can easily be overridden, e.g. you can pass myProc('something else'); instead of the default.
Edit: Re-reading, I see that you might actually be wanting to assign a new value to a global variable from within a function declaration. I do not think this is possible.
Instead, you could re-structure your code. I edited this slightly so it would compile for me (don't have SRL on-hand atm):
Simba Code:
program new;
type
losevalueinfo = record
tcts2: integer;
alpha, b: integer;
end;
var
strings: string; // unused now
losevalue: losevalueinfo;
procedure loadrecords(whichRecords: string); // accept a parameter instead of reading a global variable
begin
case lowercase(whichRecords) of
'bankbooth': begin
losevalue.tcts2 := 0;
losevalue.alpha := 1;
losevalue.b := 2;
end;
end;
end;
procedure runbot1(usingWhat: string);
begin
loadrecords(usingWhat); // this is the main thing
writeln(losevalue.tcts2);
end;
procedure runbot();
begin
runbot1('bankbooth'); // and utilize it
end;
begin
runbot();
end.