Form de acordo com a resolução de video

Encontrei a seguinte procedure:  
procedure AjustaForm;
{Manter a janela no tamanho normal independente da resolução de vídeo}
{Declarar dentro do Type do Formulário e chamar a partir do evento Create do Form}
Const
nTamOriginal = 640;
Var
nEscala : Double;
nPorcento : Integer;
begin
if nTamOriginal <> Screen.Width then
begin
nEscala := ((Screen.Width-nTamOriginal)/nTamOriginal);
nPorcento := Round((nEscala*100) + 100);
Width := Round(Width * (nEscala+1));
Height := Round(Height * (nEscala+1));
ScaleBy(nPorcento,100);
end;
end; 


Como eu tenho vários forms no mesmo projeto como fazer isto com os outros? Em outro Forum me indicaram criar uma função (dll external) e aplicar em cada form. A dúvida é, como criar esta função? Tentei fazer um dll de configuração usando esta procedure mas dá erro em (Width, Height e Scaleby): " Undeclared identifier". 



Obrigado