С первого взгляда вам покажется сложным сделать программу которая рисует компонентами, но это очень легко.

Для начала создайте форму и киньте компонент edit. Дальше зайдите в обработчик событий формы OnMouseDown и напишите следующий код ниже.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
btn: TButton;\\ делаем компонент который вам нужен в нашем случае это кнопка
begin
btn:= TButton.Create(Form1);\\ Создаём кнопку
btn.Parent:=Form1 ;\\ Это свойство отвечает за та где будет лежать компонент
btn.Caption:=edit1.text;\\ Это текст кнопки
btn.Top:=(y);\\ Это важные два свойства они отвечают за то чтоб в каком месте пользователь кликнул по форме там и появился компонент
btn.Left:=(x);
btn.Width:=(x);\\ А эти два свойства отвечают за то чтоб кнопка была разного размера но вы можете их не писать
btn.Height:=(y);
end;

end.