Follow along with the video below to see how to install our site as a web app on your home screen.
Примечание: This feature may not be available in some browsers.
не очень понятно, что конкретно спрашиваешь, мало инфы - что есть, но попробую помочь
1. в uses добавляешь свой unit с классом
2. делаешь вызов своей процедуры например по нажатию кнопочки
Код:procedure TForm1.BitBtn1Click(Sender: TObject); var m1t: T_твой_класс; begin m1t := T_твой_класс.Create(Self); //создали объект m1t.GO; // Запустили процедуру m1t.Free; //Удалились end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
m1t: T_твой_класс;
begin
m1t := T_твой_класс.Create(Self); //создали объект
try
m1t.GO; // Запустили процедуру
finally
m1t.Free; //Удалились
end;
end;
На 6-м работать не будет. Самый нормальный делфи - 7й или "Delphi 10 Lite v3.0"блин компилятор ругается на строчку XMLRequest:=TStringStream.Create('<?xml version="1.0"?>'+XML,CP_UTF8); кто-то может попробовать у себя работоспособность этого кода, может это из-за того что у меня делфи 6