procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
   OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
   if OpenDialog1.Execute then
     if FileExists(OpenDialog1.FileName) then //Проверяем существование файла
     begin
       Mails.Lines.Clear; //Именно lines.clear, а не просто clear
       Pass.Lines.Clear;
       AssignFile(input,OpenDialog1.FileName);
       Reset(input);
       while not eof(input) do //До конца файла
       begin
         readln(input,s);
         //Вот это я у karuy скопировал.
         //Тут всё просто - Pos(строка №1, строка №2) ищет строку №1 (символ) в строке №2
         //и возвращает позицию первого её вхождения,
         //а Copy(строка, первый символ, последний символ) возвращает подстроку указанной длины из заданной строки.
         Mails.Lines.Add(Copy(s, 1, Pos(';', s) - 1));
         Pass.Lines.Add(Copy(s, Pos(';', s) + 1, Length(s)));
       end;
       Label2.Caption:=inttostr(Mails.Lines.Count);
     end else MessageDlg('Файл не существует!',mtError,[mbOk],0);
end;

type TForm1=class(TForm)
img1,img2,img3:TImage; //Описание компонентов в классе формы
<...>
var img:array [1..3] of TImage; //Где-то задан массив указателей на эти компоненты
<...>
//Где-то копируем ссылки на экземпляры класса TImage в наш массив
img[1]:=img1;
img[2]:=img2;
img[3]:=img3;
<...>
//А тут используем их в цикле:
for i:=1 to 3 do img[i].canvas.clear;
<...>

figure:array[0..1,0..3,0..3]of boolean=

   (((true,true,false,false),
     (true,true,false,false),
     (false,false,false,false),
     (false,false,false,false)),

    ((true,false,false,false),
     (true,false,false,false),
     (true,false,false,false),
     (true,false,false,false)));

type
   tsomerecord=record
     text:string[20]; //строка фиксированной длины; всегда занимает 20 байт
   end;
...
var
   somefile:file of tsomerecord; //типизированный файл записей
   somerecord:tsomerecord;
...
   read(somefile,somerecord);
   write(somefile,somerecord);

type
   tsomerecord=record
     text:string; //строка неопределённой длины; может иметь разную длину
     number:word;
   end;
...
var
   somefile:file; //нетипизированный файл; в нём можно использовать только blockread/blockwrite
   somerecord:tsomerecord;
   buf:byte;
...
//Чтение:
   reset(somefile,1); //1 означает, что за один раз считывается/записывается 1 байт
   blockread(somefile,buf,1); //считываем один байт - это у нас будет длина строки
   setlength(somerecord.text,buf); //не уверен, но вроде бы строке сначала нужно длину задать
   blockread(somefile,somerecord.text[1],buf); //считываем buf блоков по байту в строку text
   blockread(somefile,somerecord.number,2); //считываем два блока по байту в переменную
   //number типа word, т.к. тип word занимает 2 байта
...
//Запись:
   rewrite(somefile,1);
   buf:=length(somerecord.text);
   blockwrite(somefile,buf,1); //записываем длину строки - один байт
   blockwrite(somefile,somerecord.text[1],buf); //записываем buf байт из строки
   blockwrite(somefile,somerecord.number,2); //записываем число number из 2 байт