10 lines
135 B
ObjectPascal
10 lines
135 B
ObjectPascal
unit CompTest;
|
|
|
|
interface
|
|
type
|
|
TLoginEvent = procedure(Sender: TObject; Username, Password: string) of object;
|
|
|
|
implementation
|
|
|
|
end.
|