Is there a way to execute an internal command stored in a . txt (or String) file in Delphi?

Question

I am trying to display an image when loading a Form, but the command needs to come from an external file. txt (or a string that will store this existing command in .txt). I can show the lines with Showmessage, that way:

procedure TFrmAlbum.FormShow(Sender: TObject);
var
Achar : TStringList;
j : Integer;
img : String;
begin
             Achar := TStringList.Create;
             Try
               Achar.LoadFromFile('images.txt');
               for j := 0 to Achar.Count-1 do
                 begin
                   ShowMessage(Achar[j]);
                 end;
             Finally
             Achar.Free;
             End;
end;

What I want is some command I can use instead of Showmessage for instead of showing lines, run them. Do you have how to do this?

Edit1: I don’t know if it will help, but the command lines in . txt, which should be interpreted by the program are like these:

Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_1');
Image2.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_2');

Answer 1

I am guessing that each row of the file will be on a Timage named Image1, Image2, etc. I am also assuming that the files are all bitmaps.

procedure TFrmAlbum.FormShow(Sender: TObject); var Achar : TStringList; i, j : Integer; begin Achar := TStringList.Create; Try Achar.LoadFromFile('images.txt'); for j := 0 to Achar.Count-1 do begin i := pos('_', Achar[j]) + 1; i := StrToInt(copy(Achar[j], i, 10)); TImage(FindComponent( 'Image' + IntToStr(i))).Picture.Bitmap.LoadFromResourceName(HInstance, Achar[j]); end; Finally Achar.Free; End; end;