unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, rpdefine, rpbase, rpsystem;
type
tform1 = class(tform)
rvsystem1: trvsystem;
button1: tbutton;
procedure rvsystem1print(sender: tobject);
procedure button1click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;
var