Delphi-Quellcode:
with FindComponent('test') as TMemo do begin
CopyToClipboard;
end;
sollte eigentlich gehen.
Zum 2. Problem: du erstellst die Memos in einer Schleife und beziehst deine Schleifenvariable i in den Namen ein - schon hast du eindeutige Namen die du verwenden kannst!