Остались 2 функции и всё.

[Otar4ik]

Добрый вечер!

Дан символьный файл f.В файле f не менее двух компонент. Определить являются ли 2 первых символами цифрами
Если да,то установить,является ли число,образованное этими цифрами четным

Проблема в том,что она просто не отображает в TextBox'е цифры и не складывает,хотя я переместился в конец файл при помощи процедур и попытался сложить 1-ые и 2 элемента цифр

Буду признателен,если подскажете по поводу этой программы.Код конечно присутствует.
Просто подскажите функции или где найти эти функции в интернете в книге,а остальную программу я до конца добью.Так как собирал по кусочкам уже неделю)

program lab2_1;
 
uses
  Formsabc;
var
  g: text;
  f: file of integer;
  opf: openfiledialog;
  saf: savefiledialog;
  bt1, bt2,bt3: button;
  l:listbox;
  x:integer;
  Symbol: char;
  tb:textbox;
  s: string;
  d,code:integer;
  c: char;
  z1,z2,z3:IntegerField;
 
procedure OpenFile;///кнопка открытия файла
begin
  opf := new OpenFileDialog();
  if opf.ShowDialog() = DialogResult.OK then
  begin
    assign(f, opf.FileName);
    reset(f);
    read(f,x);
    write(f,x+1,x+2);
    begin
      s += lowcase(c);
    end;
  end;
  close(f);
end;
 
 
procedure SaveFile;///сохраняем файл
begin
  saf := new SaveFileDialog();
  if saf.ShowDialog() = DialogResult.OK then 
  begin
    assign(g, saf.FileName);
    rewrite(g);
    write(g, s);
    close(g);
  end;
end;
 
procedure count;///подсчёт элементов
var
x:integer;
begin
Assign(f,'adata.txt');
reset(f);
write(f,x);
end;
 
procedure main;
var
x:integer;
begin
  bt1 := new Button('Открыть');
  bt1.Click += OpenFile;
  tb := new TextBox;
  tb.Dock := DockStyle.Fill;
  bt2 := new Button('Сохранить');
  bt2.Click += SaveFile;
  bt3:=new Button('Подсчитать');
  bt3.Click+=Count;
  z1:=new IntegerField('Ответ',x);
end;
 
begin
  main;
end.

[Otar4ik]

После маленьких вкраплений есть надежда,что заработает,но мешает ошибка на стрке tb:=new Textbox('Ответ',y);
Пишет "lab_2_1.pas(84) : Неверное число параметров конструктора"

не могу понять,в чем ошибся.

program lab2_1;
 
uses
  Formsabc;
 
var
  g: text;
  f: file of char;
  opf: openfiledialog;
  saf: savefiledialog;
  bt1, bt2,bt3: button;
  l:listbox;
  tb:textbox;
  s: string;
  x,y:char;
  z1,z2,z3:IntegerField;
  Summa:Integer;
 
procedure OpenFile;
begin
  opf := new OpenFileDialog();
  if opf.ShowDialog() = DialogResult.OK then
  begin
    assign(f, opf.FileName);
    reset(f);
    read(f,y);
    begin
      s += lowcase(y);
    end;
  end;
  close(f);
end;
 
 
procedure SaveFile;
begin
  saf := new SaveFileDialog();
  if saf.ShowDialog() = DialogResult.OK then 
  begin
    assign(g, saf.FileName);
    rewrite(g);
    write(g, s);
    close(g);
  end;
end;
 
procedure count;
begin
Assign(f,'adata.dat');
reset(f);
while not Eof(f) do
begin
Seek(f,0);
Read(f,x);
Seek(f,1);
Read(f,y);
If (x in ['0'..'9']) and (y in ['0'..'9']) Then
begin
  tb.AddLine('Первые два символа являются цифрами');
  begin
tb.LinesClear;
      If y in ['0','2','4','6','8'] Then
      tb.AddLine('Число чётное')
      else
      tb.AddLine('Число нечётное');
      close(f);
  end;
  end;
  end;
  end;
 
procedure main;
begin
  bt1 := new Button('Открыть');
  bt1.Click += OpenFile;
  z1:= new IntegerField('');
  bt2 := new Button('Сохранить');
  bt2.Click += SaveFile;
  bt3:=new Button('Подсчитать');
  bt3.Click+=Count;
  tb:=new Textbox('Ответ',y);  
end;
 
begin
  main;
end.

[Fenex]

Ну дык сами же написали:

мешает ошибка на стрке tb:=new Textbox('Ответ',y);
Пишет "lab_2_1.pas(84) : Неверное число параметров конструктора"

Узнайте какое количество аргументов принимает конструктор Textbox и будет счастье.