Mit den Methoden
MoveTo und
LineTo der Klasse TCanvas kannst du auf edem Canvas des TImage zeichnen. Für das Raster brauchst du zwei for-Schleifen, einmal für die senkrechten Linienen und einmal für die waagerechten.
Angemerkt sei noch, dass die TImage Komponente nicht zum Zeichnen gedacht ist, sondern eher zum anzeigen von statischen Bildern und Grafiken. Zum Zeichnen nimmt man eigentlich eine PaintBox.
Lineal schreibt man übrigens am End emit "l" und nicht mit "r". Dafür würde ich mir aber eine fertige Komponente suchen. Man kann das sicherlich auch selber machen, doch dürfte das, insbesondere beim senkrechten Lineal, etwas aufwendig werden.