[Alegun]

Сообщение от darchken

...везде один и тотже пример

По-другому и нету ничего, вот объяска от туда же, на форму надо мемо бросить, для проверки

Код:

procedure TForm1.FormShow(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to ParamCount do
    memo1.Lines.Add('Параметр '+IntToStr(i)+' = '+ ParamStr(i));
end;

Скомпилить, через "Выполнить.." вот так запустить (кнопкой выбрать путь к файлу)

"C:\Project1.exe" 10.24.5.14 huawei-1

ну или в вашем случае выполнять процедуру tlnt из программы примерно так

Код:

if ParamCount > 0 then tlnt(ParamStr(1), ParamStr(2));