Konstante declarieren

[PeterKiers]

Hallo,

ich hab ein kleines Konstante-Problem.

Ich habe ein Programm, dass aus 2 units besteht.
In der 1. steht ein Prozedure:

Code:

Procedure TMainForm.CheckServer([b]const AServer: string[/b]);
var
  i: integer;
  str: string;
begin
  idIcmpClient1.OnReply := idIcmpClient1Reply;
  str:=AServer;
  Delete(str, 1, 2);
  idIcmpClient1.Host := str;
  for i := 1 to 1 do
  begin
  idIcmpClient1.Ping(str);
   end;
 end;

Jetzt möchte ich die Konstante const AServer: string auch im 2e unit benutzen!

Wie geht das, ist dass überhaupt möglich?

Peter Kiers