OPCServer.ClientName := 'MyOPCClient;C:\Test\OPC\Test.exe';

OPCServer.ClientName := Application.ExeName;