Как сократить данный отрывок кода?

if x=1 then
begin
Image1.Hide;
Image3.Hide;
Image4.Hide;
Image5.Hide;
Image6.Hide;
Image7.Hide;
Image8.Hide;
Image2.Show;
end;
 
if x=2 then
begin
Image1.Hide;
Image2.Hide;
Image3.Hide;
Image5.Hide;
Image6.Hide;
Image7.Hide;
Image8.Hide;
Image4.Show;
end;

StrToInt(Copy(Image1.Name, 1, Length(Image1.Name) - 1)) // индекс

unit Unit1;
 
interface
 
uses
  Windows, JPEG, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
x,y,ii : Integer;
a,b,c : String;
hours, mins, secs, milliSecs : Word;
flag : boolean;
 
begin
 
DecodeTime(now, hours, mins, secs, milliSecs);
RandSeed := milliSecs;
begin
x := 1 + Random(4);
end;
 
a := IntToStr(x);
 
Image1.Picture.LoadFromFile('a\1.jpg');
 
end;
 
end.

begin
x := 1 + Random(4);
end;
 
b := 'a\';
a := IntToStr(x) + '.jpg';
c := b+a;
 
Image1.Picture.LoadFromFile(c);

type
 
TQuestAnswer = record
  Q: String;
  A: String;
end;
 
....
 
QAList: TList <TQuestAnswer>;
 
QA: TQuestAnswer;

//проходимся по папке циклом, при старте программы, ищем все файлы FindFirst.... FindNext...
 
//выковыриваем имена, все что просто имя заносим в 
QA.Quest := ...
 
//все что с --, но так же называется
QA.Answer := ...
 
//в цикле вставляем в список
QAList.Add(QA);

//тут генерируем где-то число
Id := Random(QAList.Count);

//кнопка1 и код внутри нее
Image1.Picture.LoadFromFile (QAList[Id].Quest);
 
//кнопка2 и код внутри нее
Image2.Picture.LoadFromFile (QAList[Id].Answer);