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 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;
<...>

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;