[Taemin]

1) Суть программы предельно проста – запустить из одной процедуры другую процедуру. В результате планировалось увидеть окошко со значением переменной С, но не получилось… видимо procedure Proc1 так и не была вызвана. В чем ошибка?

Код:

...
type
  myproc = procedure;stdcall;
...
var
  Form1: TForm1;
  a : String;
...
procedure Proc1;
var
  b,c: Integer;
  d: string;
begin
b:=22;
c:=StrToInt(a)+b;
ShowMessage(IntToStr(c));
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  p:myproc;
  h:HWND;
begin
 if edt1.Text <> '' then
    begin
    a:=edt1.Text;
    lbl1.Caption:=a;
    @p := GetProcAddress(h,'Proc1');
    end
 else
lbl1.Caption:='pusto';
end;

2) Как реализовать в Delphi что-то подобное?

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  i : Integer;
begin
i := 1;
edt[i].Text := 'парам-пам-пам';
end;