Объявление процедуры

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

unit Assembly;

interface

procedure Test;

implementation

procedure Test;
begin
  //Действия
end;

end.

посмотрите пример(это сокращенный(то есть учитываем в нем тока функцию) код модуля с вашей функцией)
если убрать красное, то функция будет внутренней для модуля, а если оставить красное то функция будет экспортируемой, и другие модули смогут её использовать.
намек ясен?

[notHaker]

Сообщение от Баламут

Так пойдет? Или принципиально, чтобы процедура была объявлена в классе формы?

ЗЫ. Только не нужно ShowMessage в потоке вызывать. Это я так, для примера

uses
  Classes, SysUtils;

procedure Test; forward;

type
  TStartObj = class(TThread)

implementation

procedure Test;
begin
  ShowMessage(Form1.Button1.Caption);
end;

Упс... Упустил из виду, что поток создается в другом юните. Сам-то давно так не делаю. В общем пардон, но пост стирать не буду. Авось пригодится.

Правильно подмечено... ShowMessage - это намёк на то, что надо бы исчо и синхронизировать поток с процессом! Рекомендую фукнцию TThread.Synchronize (это как минимум )!