Получить RGB составляющие цвета из строки с наименованием цвета из буфера обмена

##
uses System.Windows.Forms, GraphABC;
 
 
SetWindowSize(250, 120);
SetWindowCaption('цвета и r g b - значения');
 
//var c := Clipboard.GetText;       // переменная - цвет !!! получаем из буфера обмена
{Это не работает. Компилятор ругается "Нельзя преобразовать тип string к System.Drawing.Color"}
 
//var cl := c.ToColor;
var c: color := clGold;
 
var r := GetRed(c);     // Возвращает красную составляющую цвета
var g := GetGreen(c);   // Возвращает зеленую составляющую цвета
var b := GetBlue(c);    // Возвращает синюю составляющую цвета
println(c);                   // печать названия цвета
var color: string := r.ToString + ', ' + g.ToString + ', ' + b.ToString;
WriteAllText('d:\PABCWork.NET\color.txt', color); 
 
print(r, g, b);               // печать r g b - значения цвета
setpenwidth(1);               // установили толщину пера = 1
setpencolor(clGray);          // установили цвет пера
 
moveTo(50, 50);       // перо в точку 50, 50
lineTo(200, 50);      // линия до точки 200, 50
lineto(200, 100);     // линия до точки 200, 100
lineto(50, 100);      // линия до точки 50, 100
lineto(50, 50);       // линия до точки 50, 50      
floodfill(75, 75, c); // от точки 75, 75 заливаем цветом

##
uses System.Windows.Forms, GraphABC;
 
 
SetWindowSize(250, 120);
SetWindowCaption('цвета и r g b - значения');
 
var c := Clipboard.GetText;       // переменная - цвет !!! получаем из буфера обмена
{Это не работает. Компилятор ругается "Нельзя преобразовать тип string к System.Drawing.Color"}
 
//var cl := c.ToColor;
//var c: color := clGold;
 
var r := GetRed(c);     // Возвращает красную составляющую цвета
var g := GetGreen(c);   // Возвращает зеленую составляющую цвета
var b := GetBlue(c);    // Возвращает синюю составляющую цвета
println(c);                   // печать названия цвета
var color: string := r.ToString + ', ' + g.ToString + ', ' + b.ToString;
WriteAllText('d:\PABCWork.NET\color.txt', color);

var c: color := clGold;
 
var r := GetRed(c);     // Возвращает красную составляющую цвета
var g := GetGreen(c);   // Возвращает зеленую составляющую цвета
var b := GetBlue(c);    // Возвращает синюю составляющую цвета
println(c);                   // печать названия цвета
var color: string := r.ToString + ', ' + g.ToString + ', ' + b.ToString;
WriteAllText('d:\PABCWork.NET\color.txt', color);

var c := Clipboard.GetText;
var cl :=system.Drawing.Color.FromName(c);
var r := GetRed(cl);     // Возвращает красную составляющую цвета
var g := GetGreen(cl);   // Возвращает зеленую составляющую цвета
var b := GetBlue(cl);    // Возвращает синюю составляющую цвета
 
var color: string := r.ToString + ', ' + g.ToString + ', ' + b.ToString;
WriteAllText('d:\PABCWork.NET\color.txt', color);

var c := Clipboard.GetText;       // переменная - цвет !!! получаем из буфера обмена
var cl := system.Drawing.Color.FromName(c);
 
var r := GetRed(cl);       // должна возвращать красную составляющую цвета. Возвращает значение "0"
var g := GetGreen(cl);   // Возвращает значение "0" вместо значения зеленой составляющей
var b := GetBlue(cl);     // Возвращает значение "0" вместо значения синей составляющей
println(c);                     // печать названия цвета
var color: string := r.ToString + ', ' + g.ToString + ', ' + b.ToString;
WriteAllText('d:\PABCWork.NET\color.txt', color);