[MatKus]

OKi, otrzymałem kody źródłowe.
W kodach nic niebezpiecznego nie widze, natomiast, jeśli pozwolisz, to małą uwagę na temat ilości wstukanego przez ciebie kodu. Strasznie duzo pisania, a nic z tego nie wynika

Zamiast pisać

edit1.text:=copy(memo1.text,1,1);
edit2.text:=copy(memo1.text,2,1);
edit3.text:=copy(memo1.text,3,1);
edit4.text:=copy(memo1.text,4,1);
edit5.text:=copy(memo1.text,5,1);
edit6.text:=copy(memo1.text,6,1);
edit7.text:=copy(memo1.text,7,1);
edit8.text:=copy(memo1.text,8,1);
edit9.text:=copy(memo1.text,9,1);

i task dalej

Można to przecież łatwiej rozbić. Skorzystaj z objektowości samego Delphi
Każdemu editowi nadaj TAG odpowiadający jego pozycji w tekście (edit dla pierwszej litery =1, dla drugiej=2 itd) i teraz tak:

for x:=1 to Form1.ControlCount do // jedziemy przez wszystko co jest na forumie (edity, buttony itp. itd.)
begin
   if Form1.Controls[x] is TEdit then // czy to, co akurat mamy, to Edit?
   begin
     with Form1.Controls[x] as TEdit do  // mniej pisania :) Po za tym "ogólnie" kontrolkę zaczynamy traktować jako Edit
     begin
       d:=length(name);
       if d>=5 then  // żeby przypadkiem za krótka nazwa nie wyszła i sie nie wysypało :P
       begin  // wpisz odpowiednią literę do tego edita. Jeśli pole nazywa cię
               //  XXXXbX, na przykład Editb4, to wpisz tam z memo2, itd.
          if name[5]='b' then text:=memo2.Text[tag] else
          if name[5]='c' then text:=memo3.Text[tag] else
          if name[5]='d' then text:=memo4.Text[tag] else
          if name[5]='e' then text:=memo5.Text[tag] else
          text:=memo1.Text[tag];
       end;
     end;
   end;
end;

Mam nadzieję, że błędu nie zrobiłem, bo pisałem z pamięci.

Wyślę ci to też mailem.

Po za tym jeszcze 2 uwagi : Po pierwsze, czy tyle tych Images i Editów jest potrzebne? Strasznie długo się to przez to kompiluje, a i zasoby systemu nieźle zżera.
A po drugie, czy nie lepiej by było te wszystkie obrazk wrzycić do jednego i skorzystać z copyrect ?