Менять название кнопки

[Neeter]

Можно использовать функцию InputQuery
Выводит диалог с edit'ом внутри
Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
 str: string;
begin
 if InputQuery('Заголовок', 'Введите заголовок кнопки: ', str) then
  Button1.Caption := str;
end;