Помогите написать функцию

[Черничный]

Есть код:

try
  Client.Host:=edit1.Text;
  client.Connect;
  except
  Label7.Caption:='';
  exit;
  end;
  try
  client.WriteLn('1');
  label7.Caption:='' + client.ReadLn + '.';
  client.Disconnect;
  except
  label7.Caption:='';
  end;

Все что будет менятся это циферка в строчке client.WriteLn('1');
Так я и подумал, что можно просто вызывать одну функцию передавая ей стринговую циферку. Помогите собрать во функцию

[DearHunter]

function TForm1.ReadInput(const S: String): String;
begin
  Result := ''; 
  try  
    Client.Host:=edit1.Text;  
    client.Connect;  
  except  
     exit;  
  end;    
  try
    client.WriteLn(S);
    Result := '' + client.ReadLn + '.';
    client.Disconnect;
  except
    Result := '';
  end;
end;

Так?

[Черничный]

да вроде так, токлько label мои пропали, там у меня некий текст, я уж не стал его писать. Там типа в статус текст. А зачем Result? а я писал функции и у меня в дебуг писал типа client не понимает, лабу то же с edit не понимает что это такое

[Ring0Sn]

а я писал функции и у меня в дебуг писал типа client не понимает, лабу то же с edit не понимает что это такое

Непонимал, значит были в разных областях видимости, учи азы обьекно-ориентир-го програмирования ))

[Parcenson]

Если функция на другом модуле,то пока не свяжешь(Ctrl+F11) не будет работать.