Strings aus einer Memo parsen und kopieren

[Diablo9876]

Hallo, ich hab eine Memo mit den volgenden strings:

ID:459790, ClassName: TPanel, Caption:
ID:2098202, ClassName: TPanel, Caption:
ID:525336, ClassName: TButton, Caption: Check
ID:787474, ClassName: TEdit, Caption: 80
ID:984074, ClassName: TEdit, Caption:
ID:1180688, ClassName: TMemo, Caption:

Jetzt möchte jeweils die nummer 525336 rauskopieren und in Editbox1 kopieren, dasselbe für die nummer 984074 in Editbox2 und die nummer 1180688 in Editbox3.
Noch etwas die Nummern sind Handles von Fenster die sich immer wieder verändern, nach ein neuen Programstart.
Also muß ich ein Weg haben der die verändert Nummern sucht und kopiert.

Jetzt hab ich schon mit pos und copy und die ganzen string commands probiert aber es gelingt mir nicht.
Gibt es eine andere Lösung dafür?