var
    a: ansiString;
   ...
readln(a);
   if (a = 'open') then messagebox (0,'open','message', 48);
   if (a = 'create') then messagebox (0,'create','message', 48);
   if (a = 'save') then messagebox (0,'save','message', 48);
   if (a = 'save as') then messagebox (0,'save as','message', 48);

function LoadFile(List:TListBox; mask:Boolean): Boolean;
var
   i: integer;
begin
  try
    with TOpenDialog.Create(nil) do
     begin
      Options:=
      [ofFileMustExist,
       ofAllowMultiSelect];
    if Execute then
       begin
        for i:=0 to Files.Count -1 do
         begin
         if Mask then
            List.Items.Add(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
           else
            List.Items.Add(ExtractFileName(Copy(StringReplace(Files[i],'"',#10,
          [rfReplaceAll]),0,Length(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
          -4)));
         end;
        Result:= True;
       end;
       List.Update;
      end;
    except
   Result:= False;
  end;
end;

if LoadFile(ListBox1, false) then
  //Код если все прошло нормально и загрузилось
     else
      код если произошла какая то ошибка.