Criando labels em tempo de execução

Procedure TForm1.Button1Click(Sender: TObject);
Var
OLabel : TLabel;
begin
OLabel := TLabel.create(application);
OLabel.Parent := Form1;
OLabel.Name := 'LABEL1';
OLabel.Left := 10;
OLabel.Top := 10;
OLabel.font.Size := 20;
end;