Erro na chamada da procedure. Alguém pode me ajudar.

Olá pessoal, desculpe a ignorancia mas sou leigo no assunto.
Em Type, declarei a seguinte procudere :
Type
procedure shape_p();

Dentro de um If fiz a chamada para a procedure :
If Cor=´azul´ then
shape_p;

Daí eu criei a procudure :
procedure shape_p();
begin
linhas de comando....
end;

Quando vou compilar dá o seguinte erro :
[Error] Unit1.pas(48): Unsatisfied forward or external declaration: ´TForm1.shape_p´

Não preciso passar variaveis junto com a procudure, apenas quero que quando chegar naquele IF o programa será desviado para a procedure shape_p para fazer o que eu quero.
Se alguém puder ajudar, me indicando o que estou fazendo errado eu agradeço.
Obrigado