From 00f3dfe30c85185d3df0a319849394fe41c22db4 Mon Sep 17 00:00:00 2001
From: Timothy Warren <twarren@nabancard.com>
Date: Fri, 8 Oct 2021 13:28:36 -0400
Subject: [PATCH] Some formatting fixes

---
 polymorphic class/person.pas   |  6 +++---
 polymorphic class/unitmain.pas | 22 +++++++++++-----------
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/polymorphic class/person.pas b/polymorphic class/person.pas
index 887dece..952d224 100644
--- a/polymorphic class/person.pas	
+++ b/polymorphic class/person.pas	
@@ -7,9 +7,9 @@ interface
 uses Dialogs;
 
 type
-  TPerson = class
-	procedure Speak; virtual; abstract;
-  end;
+	TPerson = class
+		procedure Speak; virtual; abstract;
+	end;
 
 	{TBeckham}
 	TBeckham = class(TPerson)
diff --git a/polymorphic class/unitmain.pas b/polymorphic class/unitmain.pas
index 4ccadbe..02ee83f 100644
--- a/polymorphic class/unitmain.pas	
+++ b/polymorphic class/unitmain.pas	
@@ -10,7 +10,7 @@ uses
 type
 
 { TMainform }
- TMainform = class(TForm)
+TMainform = class(TForm)
 		rgPeople: TRadioGroup;
 		procedure FormCreate(Sender: TObject);
 		procedure rgPeopleClick(Sender: TObject);
@@ -33,18 +33,18 @@ end;
 procedure TMainform.rgPeopleClick(Sender: TObject);
 var p: TPerson;
 begin
-	 if rgPeople.ItemIndex < 0 then Exit;
+	if rgPeople.ItemIndex < 0 then Exit;
 
-		// Select the appropriate Person
-		case rgPeople.ItemIndex of
-				0: p := TBeckham.Create;
-					1: p := TShakespeare.Create;
-					2: p := TWest.Create;
-					3: p := TBlaise.Create;
-	 end;
+	// Select the appropriate Person
+	case rgPeople.ItemIndex of
+		0: p := TBeckham.Create;
+		1: p := TShakespeare.Create;
+		2: p := TWest.Create;
+		3: p := TBlaise.Create;
+	end;
 
-		p.Speak;
-		p.Free;
+	p.Speak;
+	p.Free;
 end;
 
 end.