UNIT ...... //тот юнит, где форма

INTERFACE

type
   TEditClientForm = class(TForm)
   private
      FClientID  : string;
   public
      ...
      procedure InitForm(const AClientID: string);
      ...
   end;
  
   //эта процедура будет создавать окно, поклазывать его и освобождать его память после закрытия 
   procedure ExecEditClientForm(const AClientID: string);
IMPLEMENTATION   
uses SysUtils;
...
...

procedure TEditClientForm.InitForm(const AClientID: string);
begin
   //сохраняем значение ID клиента 
   FClientID := AClientID;
   ....
   //всякие другие действия: открытия датасетов и т.д.
   ....
end;

// =========================================================================


procedure ExecEditClientForm(const AClientID: string);
var
   dlg : TEditClientForm;
begin
   dlg := TEditClientForm.Create(AClientID);
   try
      dlg.InitForm(AClientID);
      dlg.ShowModal();
   finally
      FreeAndNil(dlg);
   end;
end;

//в каком-нибудь другом месте программы показ диалогового окна сводится к вызову 
//процедуры и передачей ей в качестве аргумента ID клиента

ExecEditClientForm('1');

ExecEditClientForm('100');

ExecEditClientForm('35');