[ecfisa]

Hola Tortuguica.

Código Delphi [-]
...
var
  pedido: string;
begin
   pedido:= Copy((Sender as TSpeedButton).Name, 3 ,Length((Sender as TSpeedButton).Name));
   (FindComponent('pv'+pedido) as TLabel).Font.Color:= clPurple;
   (FindComponent('pd'+pedido) as TLabel).Font.Color:= clPurple;
end;

Saludos.