achja, noch ein tipp...
Delphi-Quellcode:
type
TRichEdit1 = class (TRichEdit)
private
FX1: String;
FX2: String;
FY1: String;
FY2: String;
public
property X1: String Read FX1 Write FX1;
property X2: String Read FX2 Write FX2;
property Y1: String Read FY1 Write FY1;
property Y2: String Read FY2 Write FY2;
procedure Wegpunktefestlegen;
procedure Paint;
end;
der übersicht wegen solltest du das ganze ein bisschen besser einreihen
das zeigt dir delphi schon an TForm1 wie das geht