Ich hab mal den Text aus nem Edit genommen und dann in Farbflächen umgewandelt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
x,str: string;
begin
str:=edit1.Text;
for i:=0 to length(str) do
begin
x:=copy(str,i,1);
with form1.Canvas do
begin
if X= '1' then brush.Color:=clred;
if X= '2' then brush.Color:=clgreen;
FillRect(rect((i-1)*50,0,i*50,50));
end;
end;
Anstelle der Rechtecke könntest du dann images entstehen lassen und dann mit dem Bild deiner Wahl anmalen. (Zum Lesen aus der Datei: assignfile, reset, readln, closefile)
Ich versteh deinen Code leider auch nicht
, aber so kannst du es auch machen.