[andres1569]

Aquí va una idea, aunque no la he probado:

Colocas sobre un Panel varios controles TShape y los redimensionas para que tengan, por ejemplo, los bordes de arriba/abajo un Height de 3, y los de izquierda/derecha un Width de 3. Cuando el usuario de tu aplicación pulsa sobre uno de ellos (capturas el evento OnMouseDown de cada uno de ellos), cambias el color del mismo (hay color de relleno, "Brush" y de Borde, "Pen") cambiando por ejemplo entre un color negro y el color del Panel (de esta forma parecerá que ha desaparecido):

procedure TForm1Shape1OnMouseDown (Sender: TObject ...);
begin
  with TShape(Sender) do
    if Brush.Color = clWhite then
    begin
      Brush.Color := clBtnFace;  // aquí el color del Panel
      Pen.Color := clBtnFace;  // aquí el color del Panel
    end
    else begin
      Brush.Color := clBlack;  
      Pen.Color := clBlack;  
    end;
end;