Como converter RGB para TColor?

Com este função você pode informar valores de
vermelho, verde e azul, e a função retorna-rá
uma cor correspondente no formato TColor.

É necessário estar declarado Graphics e Windows na seção uses,
em versões unicode declare Vcl.Graphics e Winapi.Windows.

Segue o código fonte da função:

1
2
3
4

function RGBToColor(r, g, b : Byte) : TColor;
begin
  Result := RGB(r, g, b);
end;

Exemplo de uso:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Color := RGBToColor(58, 110, 165);
end;