Чтение из TXT файла

[soonner]

Здраствуйте, хочу узнать как можно прочитать данные из файла по строчечно и при том в разный лейблы и указателей длины для шейпов!


Задача такова, нужно при нажатии на кнопку читать из раннее записаного файла данные, в основном типу integer тобиш числа, в несколько лейблов с которых оно и было записано в файл, а также
длину шейпов.


p.s я самоучка, если можно то какиетто куски может кода или чего с коментами. ссылки, куски кода, словесное обяснение подойдёт!

[soonner]

Всё извеняюсь за беспокойство уже не нужно.
Код выложу вдруг ещё кто то похожий на меня будет искать!


procedure TF_new.Button3Click(Sender: TObject);
Var f:System.Text; //класс текстового файла
tmpstr: string;//я зараннее знаю какой текст буду выводить. Вывод символов
pass: integer;//ну тут тоже.Вывод чисел
begin
AssignFile(f,E1.text+'.txt'); //путь к файлу ввожу имя файла в Эдит
reset(f);//открывая файд
readln(f,tmpstr);читаю первую строку перескакую на вторую
Label4.Caption:=tmpstr;//вывожу в лейбыл
readln(f,pass);//чиатю вторую строку, перехожу на третью
Label5.Caption:=inttostr(pass);//вывожу в лейбл
end;