Zitat von
User11:
von mir abgeänderte Version:
procedure TForm1.Button1Click(Sender: TObject);
var
THTTPRIO : borkporttype;
begin
memo2.Text := THTTPRIO.Bork (memo1.text);
end;
versuche es mal mit
memo2.Text := (HTTPRIO1 as borkporttype).Bork (memo1.text);
HTTPRIO1 muss eine Instanz einer THTTPRIO Komponente sein.
Mit THTTPRIO.Bork erscheint eine
AV, weil THTTPRIO einfach als "vom Typ borkporttype" deklariert und dann vor der Benutzung nicht instanziiert wird.