Описать функцию LineCount(S) целого типа

[santafer]

Помогите переделать код под графический интерфейс

type
 FileName=String;
 
var i:integer;
S:FileName;
 
function LineCount(S:FileName):integer;
var
 F: Text;
 TempS:String;
begin
  Assign(F,S);
  {$I-}
  Reset(F);
  if IOResult<>0 then Result:=-1
  else
   begin
    Result:=0;
    While not eof(F) do
     begin
      Readln(F,TempS);
      inc(Result);
     end;
    Close(F);
   end;
  {$I+}
end;
 
begin
 for i:=1 to 3 do
  begin
   Write('S: ');
   Readln(S);
   writeln(LineCount(S));
  end;
end.

Описать функцию LineCount(S) целого типа, возвращающую количество строк в текстовом файле с именем S. Если файл не существует, то функция возвращает −1. С помощью этой функции найти количество строк в трех файлах с данными именами.

[min@y™]

function LineCount(const AFileName: TFileName): Integer;
var
  lines: TStrings;
begin
  if not FileExists(AFileName)
    then Exit(-1);
    
  try  
    lines:= TStringList.Create();
    try
      lines.LoadFromFile(AFileName);
      Result:= lines.Count;
    finally
      lines.Free();
    end;
  except
    Result:= -2; // ошибка в/в (можно выдать сообщение, если надо)
  end;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[santafer]

Сообщение от min@y™

function LineCount(const AFileName: TFileName): Integer;
var
  lines: TStrings;
begin
  if not FileExists(AFileName)
    then Exit(-1);
    
  try  
    lines:= TStringList.Create();
    try
      lines.LoadFromFile(AFileName);
      Result:= lines.Count;
    finally
      lines.Free();
    end;
  except
    Result:= -2; // ошибка в/в (можно выдать сообщение, если надо)
  end;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

а можете объяснить куда это вставить ? точнее после чего

[min@y™]

а можете объяснить куда это вставить ? точнее после чего

в любое место после implementation.
это ж подпрограмма. она используется внутри основной программы.