1:
2:
3:
4:

function TForm1.RGBToColor(Rot,Grün,Blau :integer):String;
begin
//Gesucht
end;					

1:

if ((Rot=000) and (Grün=000) and (Blau=000)) then result:= 'Schwarz';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

function RGBtoHSV(rot,gruen,blau:Byte;H0_S1_V2:Integer):Integer;
var HSVFarbwert,HSVSaettigung,HSVHelligkeit:Integer;
    minimum,maximum,delta:Integer;

  function min(wert1,wert2,wert3:Byte):Byte;
  Begin
    if (wert1<wert2) and (wert1<wert3) Then Result:=wert1 else
      if (wert2<wert1) and (wert2<wert3) Then Result:=wert2 else Result:=wert3;
  End;

  function max(wert1,wert2,wert3:Byte):Byte;
  Begin
    if (wert1>wert2) and (wert1>wert3) Then Result:=wert1 else
      if (wert2>wert1) and (wert2>wert3) Then Result:=wert2 else Result:=wert3;
  End;

Begin
  minimum:=min(blau,gruen,rot);
  maximum:=max(blau,gruen,rot);
  delta:=maximum-minimum;
  HSVHelligkeit:=maximum;
  HSVFarbwert:=0;
  if (HSVHelligkeit=0) then HSVSaettigung:=0 else HSVSaettigung:=round(delta*(255/HSVHelligkeit));
  if (HSVSaettigung=0) then HSVFarbwert:=0 else Begin
    if (maximum=rot) then HSVFarbwert:=Round(60*(gruen-blau)/delta) else
      if (maximum=gruen) then HSVFarbwert:=120 + Round(60*(blau-rot)/delta) else
        if (maximum=blau) then HSVFarbwert:=240 + Round(60*(rot-gruen)/delta);
    if (HSVFarbwert<0) then HSVFarbwert:=HSVFarbwert+360;
    //HSV.h hat noch einen Wertebereich von 0..360  darum jetzt auf 0..255 normieren
    HSVFarbwert:=Round(HSVFarbwert*255/360);
  End;
  Case H0_S1_V2 of
     0:Result:=HSVFarbwert;
     1:Result:=HSVSaettigung;
    else Result:=HSVHelligkeit;
  End;
End;

//Aufruf:
function RGBTOColor(R,G,B: Byte): TColor; 
var farbe,Saet,Hell:Integer;
begin
  farb:=RGBtoHSV(R,G,B,0);  // Farbwert
  Saet:=RGBtoHSV(R,G,B,1);  // Saetigung
  Hell:=RGBtoHSV(R,G,B,2);  // Helligkeit

  if (saet<50) Then begin
    case hell of
      0..50:result:=clBlack;
      51..120:result:=clGray;
      121..200:result:=clSilver;
      200..255:Result:=clWhite;
    end;
  end else begin
    case farb of
      0..20,250..255:     // ...oder so...
      Begin  // Rot
        if hell>150 then Result:=clRed
                    else Result:=clMaroon;
      end;

      //usw.

    end;
  end;
end;					

1:
2:
3:
4:

function RGBToColor(Rot, Gruen, Blau: Integer): String;
begin
  Result := ColorToString(RGB(Rot, Gruen, Blau));
end;