Gibt color an, dass ein Farbwert folgt ?
Dann such einfach, wenn du den Text in ein Memo geladen hast, nach dem Text 'color' in dem Feld Text der Memo-Komponente.
Delphi-Quellcode:
var StringZahl:String;
if Length(Memo1.Text)-Length('color')>=0 then
for i:=1 to Length(Memo1.Text)-Length('color')+1 do
if Copy(Memo1.Text,i,Length('color'))='color' then
StringZahl:=Copy(Memo1.Text,i+Length('color')+1,6);// Vorsicht, wenn color am Ende der Datei steht !
So würde ich das machen (ohne es getestet zu haben).