Um die ursprüngliche Idee aufzugreifen
Delphi-Quellcode:
type
tElem:record
Namedt:string;
NameInt : string;
Atomgew : integer;
....
end;
var
PSE : Array [1..104] of tElem;
Das sollte es eigentlich tun.
Nach einem Klick auf ein Element wird der Inhalt eines Records ausgegeben. Da braucht's keine Schleife!
Gruß
K-H