Как сделать, чтобы процедура ввернула число?

[hon]

Я знаю, что может смешно.

Вот например:

var a:String;
begin
a:=MyProcedure;
end;

Что должно быть в процедуре MyProgecedure, чтобы она вернула значение?

[p51x]

процедура ничего не возвращает

[Stilet]

hon

А почему не функция? Почему именно процедура?

[mss]

В этом примере процедура должна реинкарнировать в функцию.
В противном случае этот пример не подходит для вопроса в такой формулировке.

[Lesha]

function NumberReturn:integer;
begin
	result:=3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(NumberReturn));
end;

[bulldog5293]

procedure TForm1.hack(a: integer);
begin
a:=1;
end;

С процедурами так не делал, но может получиться как то так

[hon]

ну тогда как с функцией?

[Пепел Феникса]

function MuFunc():integer;
begin
 Result:=5;
end;

ShowMessage(IntToStr(MyFunc()+5));

[VadikV]

procedure MyProcedure(var s: String);
begin
   s := "Test";
end;

var a:String;
begin
   MyProcedure;
   WrileLn(a);
end;

[Пепел Феникса]

VadikV, даже не скомпилится.

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