diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 5816dc8e..3201ad05 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -360,7 +360,7 @@ begin
   Param := Parameters[Node.Index];
   case Column of
     1: Param.Name := NewText;
-    2: Param.Datatype := NewText;
+    2: Param.Datatype := UpperCase(NewText);
     3: Param.Context := NewText;
   end;
   Modification(Sender);