В чем ошибка?

[Serge_Bliznykov]

Сообщение от Кинельски

А если заместо f:file of real; писать f:textfile; ,то красным выделяется строка с процедурой seek(f,n); и пишет Incompatible types

ну и правильно пишет.
Для текстовых файлов не определена операция перехода на определённый компонент файла.

Вы определитесь, какой у Вас файл - текстовый или типизированный! (это, как говорят в Одессе, "две большие разницы").
Во-вторых, чётко сформулируйте алгоритм обработки.

А уже потом можно реализовывать обработку на ЯП.

[Кинельски]

Алгоритм следующий выбираем в комбобоксе число и при нажатии кнопки у нас из файла выводилось в текстбокс число записанное на этой строке,исходя из этого алгоритма и был составлен код

[Кинельски]

Может у кого есть исходник?

[Пепел Феникса]

может проще в ComboBox загрузить сами эти числа?

[Кинельски]

Нет ,в комбобоксе выбираешь угол например 45 ,а в текстбокс отображается его тангенс, считаный из строки в файле .

[Пепел Феникса]

тогда создайте TStringList в него загрузите файл, а далее по нужному индексу берите нужню строку

[Кинельски]

Это как?можно пример?

[Serge_Bliznykov]

Это как?можно пример?

как пример:

  TForm1 = class(TForm)
....
  private
    TS :TStringlist;
....

на создание формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
    TS := TStringlist.Create;
    {грузим в TS полностью текстовый файл Tangens.txt}
    TS.LoadFromFile('Tangens.txt'); 
...
end;

на закрытие формы 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(TS);
end;

на выбор данных из ComboBox (или, например, на ComboBox onChange)
var n : integer;
begin
   n := StrToIn(ComboBox1.Text);
   if (n<1) or (n>TS.Count) then
     label1.Caption := 'нет такой строчки в файле Tangens.txt'
else
   label1.Caption := TS.Lines[n-1];