Código de Ajustar resolução...

Olá pessoal aqui estou novamente, estou colocando um código no meu sistema para acabar com o problema da resolução de cada cliente, coloquei o código no evento onshow do form, o form se ajusta perfeitamente mas o que esta nele não, tipo o dbedit, tabcontrol continuam no mesmo tamanho original, como posso fazer para que o que esta dentro do form se ajuste como ele dependendo da resolução do cliente, usei o codigo abaixo.

procedure TForm1.AjustaForm;ConstnTamOriginal = 1024; // Será o 100% da escalaVarnEscala : Double; // Vai me dar o percentual de Transformação escalarnPorcento : Integer; // Vai me dar em percentual inteiro o valorbeginWith Formulario dobeginif nTamOriginal <> Screen.Width thenbeginnEscala := ((Screen.Width-nTamOriginal)/nTamOriginal);nPorcento := Round((nEscala100) + 100);Self.Width := Round(Self.Width (nEscala+1));Self.Height := Round(Self.Height * (nEscala+1));Self.ScaleBy(nPorcento,100);end;end;end;

Um abraço